General Disclaimer 


One or more of the Following Statements may affect this Document 


• This document has been reproduced from the best copy furnished by the 
organizational source. It is being released in the interest of making available as 
much information as possible. 


• This document may contain data, which exceeds the sheet parameters. It was 
furnished in this condition by the organizational source and is the best copy 
available. 


• This document may contain tone-on-tone or color graphs, charts and/or pictures, 
which have been reproduced in black and white. 


• This document is paginated as submitted by the original source. 


• Portions of this document are not fully legible due to the historical nature of some 
of the material. However, it is the best reproduction available from the original 
submission. 


Produced by the NASA Center for Aerospace Information (CASI) 




4 










WYLE LABORATORIES - RESEARCH STAFF 
RESEARCH REPORT WR 79*29 


SPACE VEHICLE ACOUSTICS PkFDICTION 
IMPROVEMENT FOR PAYLOADS 


by 

Robert E. Dandridge 
for 

NATIONAL AERONAUTICS AND SPACE ADMINISTRATION 
GEORGE C. MARSHALL SPACE FLIGHT CENTER 
Marshall Space Flight Center, Ala ama 35812 

October 1979 

Work Performed Under Contract Number NAS8-33193 


WYLE LABORATOR 


XT 


SCIENTIFIC SERVICES AND SYSTEMS GROUP 
P 0. BOX lOOB • HUNTSVILLE. ALABAMA 35807 
TWX (8101 720*2225 • TELEPHONE (2061 837*441 1 


COPY NO 


FOREWORD 


This report presents an analytic assessment of the modal 
analysis method for predicting the noise environment for space 
vehicle payloads in the low frequency regime. Two experimental 
cases are used to validate the analytical results, and recom- 
mendations are made to further improve the prediction model. 

This report was prepared by Wyle Laboratories, Scientific 
Services and Systems Group, for the George C. Marshall Space 
Flight Center, National Aeronautics and Space Administration. 

The work was performed under contract NAS8-33I93 entitled 
"Space Vehicle Acoustics Prediction Improvement for Payloads." 
Administration of this study was provided under the technical 
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SUMMARY 


The modal analysis method developed by Wyle [I] has been extensively modified for 
the prediction of space vehicle noise reduction in the payload enclosure, and 
this program has been adapted to the Marshall Space Flight Center IBM 360 computer. 
The predicted noise reduction levels for two test cases were compared with experi- 
mental results to determine the validity of the analytical model for predicting 
space vehicle payload noise environments in the 10 Hz to 250 Hz one-third octave- 
band regime. The prediction approach for the two test cases generally gave 
reasonable magnitudes and trends when compared with the measured noise reduction 
spectra. The discrepancies in the predictions could be corrected primarily by 
improved modeling of the vehicle structural walls and of the enclosed acoustic 
space to obtain a more accurate assessment of normal modes. Techniques for 
improving and expanding the noise prediction for a payload environment are also 
suggested. 
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I.O INTRODUCTION 


The use of orbiting and interplanetary space vehicles to place various payloads 
into space has been growing, and this growth will increase sharply when the Space 
Shuttle becomes operational. Payload utilization will greatly Increase because 
of the relatively low launch cost that will be available with the Space shuttle 
and because of the increasing space applications for scientific research, communi- 
cations, energy, and for many other areas in which the application of the space 
environment may be beneficial to man. 

In addition to an increased number of payload launches, there will also be an 
increase in payload complexity. These sophisticated payloads will also be sensi- 
tive to the acoustic environments to which they will be exposed. Therefore, it 
will be important in the payload design stage to consider t.he acoustic environ- 
ment surrounding the payload. Also, the definition of these acoustic environments 
will be needed to allow an accurate au»sessment of the test limits for qualifica- 
tion testing of the payload and its components. From these considerations, it 
ran be seen that an accurate prediction of the payload acoustic environment will 
be an important factor in the success of the payload missions. 

The purpose of this program Is to improve the technology base for defining the 
acoustic environments for space vehicle payloads. One goal of the study is to 
improve the acoustic environment predictior accuracy In the low frequency range 
where considerable acoustic energy is generated by the engines at liftoff. A 
computer program is also desired that will efficiently compute the space vehicle 
internal environments for any given external excitation and payload configuration. 
The program should also be flexible in order to incorporate state-of-the-art 
techniques in noise transmission analysis. 

A review of the current prediction techniques for determining the interior 
acoustic environment of space vehicles has been performed, and the results are 
discussed in Section 2.0 - Literature Survey. The survey of the literature on 
this subject will provide a basis for choosing the best techniques available to 
improve the accuracy and efficiency of payload acoustic environment predictions. 
Since one of the goals in the study is to improve the internal noise predictions 
in the lower frequency regime, a classical modal analysis approach is taken. 


An «n*lyt{c«l model using the modal aiiolysis techniques developed by Plotkin, 
Kasper, and Glenn [I] was selected as a logical starting point for this study. 
Earlier work done by Cockburn and Jolly [2] provided the basis for the more 
recent development by Plotkin et al. The computer programs [1] were utilized on 
the present contract to provide a computational tool for predicting noise reduc- 
tion level'}. Incorporation of state-of-the-art improvements to provide greater 
efficiency and accuracy for these computer programs was also applied. 

The Initial step in the modal analysis formulation is to express the interior 
sound field and structural displacement in terms of normal acoustic and vibra- 
tional modes. To facilitate the analysis, these modes are determined by approxi- 
mating the actual structural geometry with a cylindrical shell with rigid end 
caps. Unique features incorporated into the model include the capability of 
treating independent shell panel segments of the structure, such as the 
Shuttle payload bay doors, and the capability of accounting for payload volume 
by the introduction of an internal concentric cylindrical payload. Application 
of boundary conditions requiring compatibility of the sound field with vibration 
of the structure at the bounding surface allows a determination of the acoustic 
energy coupled into the structure and ultimately radiated Into the interior. 

The classical approach is theoretically an exact analysis from the physical 
standpoint. The degree of accuracy is dependent on the approximation involved 
in modeling the actual configurations in terms of simple geometric forms. Sec- 
tion 3.0 discusses the modal analysis approach In more detail. 

A major practical limitation usually associated with modal analysis calculations 
is that calculation time and cost become very large as frequency increases due 
to the large number of modes Involved. The computer program used for this study 
inco porates an Innovative summation scheme, which minimizes computation time. 
The program Is described in Section 4.0. The calculation begins with modes 
nearest a frequency of interest. Summation then proceeds through a sorted list 
of modes, with logic subroutines selecting the next modes to be Included in the 
series. The modal summation thus considers the most important terms first, so 
that convergence is achieved with a minimum of wasted time due to calculation 
of unimportant modes. 
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Three versions of the computer propram were prepared to calculate noise reduction 
(nr) at a single excitation frequency or averaged over an arbitrary bandwidth. 

The basic program computes the NR from a discrete exctt;«tion frequency input. 

This program is usvid when no structural or cavity resonances occur in the fre- 
quency band of interest. To obtain a band-averaged NR with this program, the 
response is calculated, at sufficient frequency intervals, and summed to arrive 
at a band averaged value of NR. The other two versions are bandwidth programs 
that analytically approximate an Integration factor for each resonance within the 
band of Interest. One version of the bandwidth program applies this method to 
acoustic resonances only, and the second version applies It to the structural 
resonances only. The total NR Is then obtained by combining the two bandwidth 
NR calculations. 

Section 5.0 describes a test on the Shuttle orbiter OV-IOI at Edwards Air Force 
Base, where two r-IOi*s were run-up to generate a simulated launch noise source. 
Predictions for this test c.r'se were made and compared to the measured test 
results. Also, a prediction case for the introduction of a payload configuration 
on the change of the empty payload bay NR levels Is compared with a model test 
case. 

The conclusions of the study are arrived at in Section 6.0. The accuracy of the 
noise reduction predictions Is discussed. The applicability of the modal analy- 
sis method to the orbiter payload acoustic environment predictions is also 
reviewed. 

Recommendations for Improving the modal analysis approach used for this Investi- 
gation are given In Section 7.0. Techniques for Impjoved analytical modeling of 
the structure and payload bay configurations are suggested. Modifications for 
improving the generality and flexibility of the computer program are also given. 

Appendix A gives a complete description of the computer program. It describes 
the three versions of the main program (PURTON, ACOBAN and STRBAN) and their 
subroutines. User Instructions for the Imput parameters are given, and a compu- 
ter program listing of a sample run Is also shown. 
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2.0 LITERATURE SURVEY 


Several methods that ?!!>vetop the noise transmission analysis for predicting the 
noise levels within an enclosure subjected to external acoustic excitation have 
been found in the literature. Generally, the inethod for computing space vehicle 
interior noise levels follows one of these approaches: 

e Classical modal analysis 

e Architectural acoustics 

e Statistical energy analysis 

e Finite element methods 

e Empirical analysis and/or extrapolation. 

Each of these approaches will be briefly discussed next while noting their 
respective references in the literature. Dowell [3] presents an extensive 
bibliography in the general area of vehicle interior noise prediction, which 
lists the available literature on each element of the problem. 

2.1 CLASSICAL MODAL ANALYSIS 

Classical modal analysis as applied to the sound field inside an enclosure, such 
as a Shuttle payload bay, involves modeling the response of the vehicle structure 
and Interior sound field In terms of the structural and acoustic natural modes. 

To obtain tractable results, the geometry must be idealized so that the mode 
shapes are simple analytic functions. Application of boundary conditions requir- 
ing compatibility of the sound field with the vibration of the structure at the 
bounding surfaces allov^s a determination of the acoustic energy coupled into the 
structure and ultimately radiated into the interior. Apart from the approxima-* 
tions involved in modeling the actual configuration in terms of simpler geometric 
forms, the modal approach is mathematically an exact treatment. The damping 
factor for each mode is also critical to the accuracy of the structural and 
acoustic response. The modal analysis method is generally the most useful at 
low frequencies where the modal density is low. The applicable frequency range 
is where the ratio of the acoustic normal mode wavelength to its corresponding 
cavity dimension is from about one-third to three [4]. At higher frequencies, 
computer time increases greatly due to the increasing number of modes involved 
in the summation process. 


Recent developments in model methods of sound transmission analysis are developing 
along two lines. Taborrak [5] has recently advanced the variational formulation 
(see Cragges [6]) of the principles underlying structure I -acoustic problems. The 
formulation is intended for use in finite element analysis of the combined struc- 
tural-acoustic problem. The method is powerful and especially of value for the 
analysis of irregularly shaped cavities and of complicated structures. The prin- 
ciple limitation being the computer storage and calculation time required, which 
increases geometrically with the sik.c and complexity of the problem. 

The other line of development has been the extension of the method of Cockburn 
and Jolly [2]. Many authors have built on this model, which is based on 
Lagrange's equation for the structure and Green's theorem for the acoustic field 
(1^ 7, 8]. A versatile formulation has emerged from the work of Dowell [9], 
Vaicaitis [10], Cragges [II], Wolf [12] and Petyt [13]. The model is based upon 
a knowledge of the uncoupled, "in vacuo" structural modes and the rigid wall acous- 
tic modes of the cavity. Given these modes, the model allows for full coupling 
between the structural wall and the acoustic cavity. Due to the component mode 
synthesis methdology employed in this model, multiple connected cavities may be 
considered. Any exterior acoustic excitation is theoretically allowed. Including 
random noise with a specific correlation function [14]. This case, however, has 
not yet been actually computer coded and run. The acoustic and structural modes 
can be determined by any method, including the finite element calculation, in that 
"(1) By judicious selection of components, the appropriate component modeling may 
already be known without further analysis or, at the least, much easier to deter- 
mine than that of the overall system. (2) In the synthesis when components are 
combined only the essential aspects (modes) of each component need be retained. 
Hence, the representation of the component In the total system may be much 
simpler than its original representation when treated separately. "[3] 

Component mode synthesis means a component of the response system is most effi- 
ciently represented in terms of its own (natural) modes. In the ccr.text of the 
present problem, an obvious distinction can be drawn between structural (wall) 
and acoustic (cavity) components. Their uncoupled normal modes are easier to 
calculate separately and then combined to obtain the overall coupled behavior of 
the system. 
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2.2 ARCHITECTURAL ACOUSTIC ANALYSIS 


This geometrical acoustic analysis method, commonly referred to as the archi- 
tectural acoustic approach. Is based on the Idealized assumption that the sound 
field enclosed within an arbitrary volume can be represented as an assemblage o^ 
an Infinite number of plane waves traveling In all possible directions. By Inte- 
grating the acoustic Intensity over the volume and performing an energy balance, 
a simple relation can be derived between the Incident sound power, the total 
acoustic absorption, and the resulting uniformly distributed sound pressure 
field. Since the sound field in an enclosure approaches the diffuse field Ideali- 
zation at sufficiently high frr<|uencles due to the presence of closely spaced 
and overlapping resonances, this simple acoustic relationship has been found use- 
ful for many applications. Since the assumption of which architectural acoustic 
Is based requires that the sound pressure be uniform throughout the enclosed 
volume, the method ceases to be valid at low frequencies where individual acous- 
tic resonances become prominent. It is, therefore, a suitable method only for 
the evaluation of Interior noise levels at high frequencies where the ratio of 
normal mode acoustic wavelength to its corresponding cavity dimension Is about 
one-third or less. [4] 

2.3 STATISTICAL ENERGY ANALYSIS 

Statistical energy analysis (SEA) is a technique, developed in the 1960s, that 
treats the Interaction of coupled dynamic systems In terms of their collective 
modal properties. The technique is based upon the modeling of each dynamic 
system as a group of modes with the energy of the system within a given frequency 
range assumed to be uniformly distributed among the modes within that range. The 
time-averaged power flow between the coupled system Is then determined as a func- 
tion of a general coupling factor and the difference In time-averaged modal 
energies of the system. SEA has been used extensively to predict the response 
and noise reduction of complex structures excited by random pressure fields. [15~ 
18] Many complex aerospace structures can be considered as being built up from 
elementary structural elements such as simply support beams, plates, etc. A 
typical example Is a shroud and payload assembly. A study that shows the appli- 
cation of the SEA to predict the response of this type of assembly to a rever- 
berant field is presented by Conticelli [19l« For more complex structures, a good 
estimate of the modal density can be obtained by adding the modal densities of 
the various elements composing the structure. 
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When a multimodal system Is excited in a band of frequencies Its modes can be 
divided into resonant and nonresonant frequencies within the band. The energy 
transmission between nonresonant frequencies and between resonant and nonresonant 
conditions cannot be predicted by the SEA. For energy transmission between reso- 
nant modes, however, a power balance equation is given by Conti cel II and Cock'jurn 
[18]. Some recent work with the SEA method can be found In References 20 through 
23. 


The major advantages of this approach is that the computations are relatively 
simple, and fine details of the system are not required. The primary disadvantage 
of the technique is the inability of the formulation to account for the specific 
characteristics of the dynamic systems. Also, the damping value specified for 
each frequency band significantly affects the response of the systems. Empirical 
means are usually required to obtain coupling parameters between the groups of 
structural and acoustic modes, and it is also assumed that the resulting motions 
are statistically Independent, with energy equally partitioned among all modes in 
a given group. These assumptions are not necessarily valid at low fr' uencies 
where rather distinct modal coupling exist. In general, the assumptions on which 
SEA is based are valid only at high modal densities, corresponding to the fre- 
quency ranges commonly used in the architectural acoustics approach. 

2.4 FINITE ELEMENT ANALYSIS 

Finite element analysis can be described as a systematic numerical technique by 
which a continuous system can be modeled as an assemblage of elementary elements, 
expressing the state of the system in terms of parametric values at the element 
connecting points. The structure and acoustic cavity must be well defined in 
order to obtain an accurate modeling of the system. From the standpoint of 
variational calculus, the approach requires expressing the element properties 
in terms of a functional relationship and finding a optimal solution for the 
total assemblage. 

The computer implementation of this technique over the past ten years has reached 
a high level of sophistication, particularly in relation to structural analysis — 
as evidenced by the development of NASTRAN and other similar user-oriented compu- 
ter programs. Finite acoustic elements have also been applied to the calculation 
of the acoustic field within ducts [24]. The generality of the basic finite 


/ 


element technique makes it a logical approach to consider for application to the 
analysis of the acoustic field within an enclosure. Applications of this tech* 
nique have already bei»n used by Wolf and Nefske [25i 26], for example, to deter- 
mine approximate acoustic resonant frequencies and ''ode shapes for an automobile 
body interior. Also, the major aircraft manufacturers have developed finite 
element programs to analy.te the structural vibration of fuselages. 

Finite element analysis of a structure coupled with an interior sound field 
constitutes a major task in the development of the necessary equations, and the 
computer storage and computation time required also involves a major computa- 
tional task. The finite element method, however, has been used effectively in 
conjunction with the modal analysis method [6, 8, 25, 27] for obtaining the 
normal modes of the system components, as mentioned in component mode synthesis 
in Section 2.1 - Classical Modal Analysis. 

2.5 EMPIRICAL ANALYSIS AND/OR EXTRAPOLATION 

Because of the complexities inherent in the analytical methods, considerable 
efforts have been made to develop empirical techniques for the prediction of 
vibration response [28-31]. Initial developments concentrated upon the normalized 
response of Tital and Jupiter space vehicles [28] to predict the induced interior 
noise of the vehicles. Subsequent developments [30, 31] have been limited to 
Saturn V-type structures, and response information has been summarized in the 
form of data banks. The most significant disadvantage of these empirical 
approaches is the fact that response data are presented for limited types of 
structures, and little attempt has been made to review all the vibration data 
with a view to deriving a generalized response prediction curve. 


8 


3.0 DISCUSSION OF THE MODAL ANALYSIS METHOD 


When sound waves are transmitted through the walls of a cavity all wave motion Is 
standing wave motion, aiid the acoustic energy content of the cavity is determined 
by the nature of Its walls. For cavities with a ratio of sound wavelength-to- 
cavity dimension between one-third and three, it will be most convenient to 
analyze the acoustic response In teims of normal modes of the enclosure. This 
ratio corresponds to a normal mode frequency range of about 6.2 to 233 Hz for the 
Space Shuttle orb iter payload bay cavity. The lowest longitudinal normal mode of 
the empty payload bay cavity is about 9.3 Hz, and the lowest circumferential mode 
and radial mode are Al Hz and 85 Hz, respectively. These normal cavity modes 
were based on the payload bay geometry shown in Figure 3~1. 



Figure 3~1. Dimensions and Coordinates of Concentric Cylindrical Cavity 
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Considerable external acoustic energy at these lower frequencies will be generated 
by the Space Shuttle engines, shown in Figure 3-2, from Reference 32, to excite 
the payload bay internal acoustic modes. The data In Figure 3-2 was measured at 
location 0l8 as shown in Figure 3-3. The payload bay doors will also have low 
frequency resonances that will couple with the external noise field to allow 
increased transmission of external noise into the payload bay cavity. For the 
case where the excitation frequency wavelength is much larger than the dimension 
of the cavity, the air in the enclosure can only exhibit stiffness reactance, 
expanding and contracting in phase, in response to the driving external pressure. 
This response is similar to a Helmholtz resonator condition. The introduction of 
payloads will also affect the lower order acoustic modes of the payload bay more 
than the higher order modes, because the acoustic wavelength will be smaller 
than the individual payload components in the higher frequency region. Therefore, 
the preceding factors Indicate the usefulness of the normal mode analysis that 
allows a detailed description of the internal noise field surrounding the payload 
in a space vehicle. 

The modal analysis approach has the advantage of permitting a detailed descrip- 
tion of the enclosed sound field while providing a methodology for determining 
the interaction of the sound field with the vibrating structure. Although the 
modal approach is an exact analysis In the classical sense, its practical appli- 
cation requires that the structural shape and enclosed volume be modeled in terms 
of simple coordinate geometries. For application to space structures, the model 
is based on approximating the enclosed volume as a right circular cylinder, and 
the surrounding structure is consequently treated as a cylindrical shell. Apart 
from simplifying the overall shape of the structure, the model itself is suffi- 
ciently general to account for orthotropic structural properties as well as an 
arbitrary distribution of the shell surface into panels with different structural 
characteristics. An important feature of the model Is the Incorporation of a 
payload within the enclosed volume. In order to maintain a tractable mathemati- 
cal solution, the payload geometry as shown in Figure 3-1 was taken as a circular 
cylinder positioned concentrically within the enclosing structure. Since the 
present analysis is intended for application in the low frequency range where 
the acoustic wavelengths will normally be large compared to individual payload 
components, it is not critical that full geometrical detail of the payload be 
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Figure 3"3. Microphone Locations on Upper and Side Surfaces 

of Model [ 32 ] 

included. The cylindrical model simulates the most important payload geometry 
factor — the volume -- that can affect the enclosed noise field. The general 
treatment of the analysis is discussed in the following paragraphs. 

The physical process involves the interior sound field exciting the shell, which 
in turn excites the interior cavity. The analytic development logically follows 
the inverse order, beginning with the interior sound field. Determining the 
interior noise field consists of finding a solution to the acoustic wave equation 
in terms of the normal acoustic modes of the containing volume, requiring the 
solution to satisfy appropriate boundary conditions at the structure wall surface 
[4]. Several acoustic mode shapes are shown in Figure 3"^ for typical circum- 
ferential and radial wave patterns. A corresponding circumferential structural 
wave pattern is also shown. The boundary conditions are that the acoustic parti- 
cle velocity at the containing surface match the vibration velocity distribution 
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Figure 3-A. Typical Circumferential and Radial Acoustic Wave Patterns 
and the Corresponding Circumferential Structural Wave Patterns 


of the structure. A Green's function is developed that relates the spatial 
distribution of the internal acoustic field to the vibrating structural surface. 
The acoustic response is derived for an arbitrary motion of the structure. In 
addition, for application to configurations containing a payload, it is required 
that acoustic boundary conditions be met along the suiface of the payload. The 
payload is considered as a rigid solid that establishes the boundary condition 
of zero acoustic particle velocity along the surface. The effect of the bound- 
ary condition associated with the presence of the payload is to raise the reso- 
nant frequency of interior acoustic modes with radial components. 


The vibration response of the space vehicle structure is then considered. The 
formulation begins with the equations of motion for the forced response of an 
orthotropic thin cylindrical shell. Solutions are developed for the response 
of the shell as a whole structure and for response of independent shell panel 
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segments. Figure 3-5 Illustrates the geometry of the structural model. The 
vehicle structure U modeled as an orthotropic thin cylindrical shell using the 
Oonnel )-Mushtari shell equation found in Leissa [33]. Figure 3*’6 Illustrates 
several examples of cylindrical shell modes. The analysis Is arranged so that 
individual panels bounded by shear diaphragm boundary conditions along circum- 
ferential and longitudinal coordinates could be permitted to respond while the 
remainder Is held rigid. This permits separate transmission calculations for any 
panel location and for panels with significantly different properties. Coupling 
relations between normal shell modes and the internal noise field are developed, 
and then the response of the coupling of the shell to an arbitrary external pres- 
sure field Is derived. A weak coupling assumption Is made which states that 



Figure 3-5. Geometry and Coordinates of Shell and Panel 



metrically opposite points 

a. Circumferential Modes on plane of symmetry for 

circumferential modes In 

*n ■ number of full circumferential waves. part a of this figure. 

Figure 3“6. Cylindrical Shell Mode Examples (from Reference 44) 
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interaction between the structural and acoustic response will not change the 
structural modes calculated in a vacuum condition, and the interaction will not 
affect the rigid wall acoustic modes. Therefore, coupling between the structure 
and cavity can be calculated using the "in vacuo" structural response and rigid 
wall acoustic response of the cavity. The assumption of negligible structural 
damping coupling is also made due to the light damping occurring in the space 
vehicle structure [3^1. 

The structural excitation by random acoustic fields is developed next. It is 
shown that the frequency~dependent coupling between the structure and a random 
exterior field is described in terms of the narrow-band spatial correlation func- 
tion (also called the cross-power spectral density) of the exterior noise. 
Coupling relations are derived for excitation by jet noise and by a reverberant 
field. 

The spatial correlation of the exterior noise field at a given frequency is 
particularly important in that it determines the manner in which structural modes 
are excited. For example, random noise fields are correlated over distances com- 
parable to a wavelength. The net result is that the structural modes with wave- 
lengths comparable to the area of in-phase excitation are strongly coupled to the 
noise field. At higher frequencies, the area over which the pressure field Is 
correlated becomes smaller and the structural response is characterized by the 
local response of individual panels or panel groups rather than that of the 
entire shell. It Is shown in Reference I that this behavior results in struc- 
tural modes being statistically uncorrelated for noise excitation. This provides 
a valuable simplification since cross terms between modes, which are important 
for coherent excitation, may be neglected. 


k.O COMPUTER PROGRAMS 


The basic computer programs used in this study were developed by Wyie [I]. These 
programs have been modified to improve their efficiency, application, and accuracy 
to the problem of predicting payload environments. The programmed analytical 
model predictions were compared to test results as described in Section 5.0. 

This comparison was made to gain an idea of the model's accuracy and to determine 
feasible methods for improving the computer programs and the analytical model. 
Techniques for improving these noise prediction computer programs and the anaiyti* 
cal model will be discussed in Section 7.0 - Recommendations, and a complete 
description of the programs is found in Appendix A. A general description of the 
computer program is given In this section. 

The expressions derived in Reference I provide for the calculation of noise 
reduction at a single frequency, as a multiple summation over cavity acoustic 
modes and shell structural modes. The total expression for the ratio between 
Interior and exterior pressure at a given frec^uency u may be written in summary 
as 
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(4-1) 


where the terms in { } and the summation variables are defined in Reference I. 


The amplification functions and are written in terms of modal resonant fre- 
quencies and associated constants as well as direct physical data (dimens'^ns, 
material properties, etc). Calculation of noise reduction, therefore, cciisists 
of first computing these modal resonant quantities and then applying the following 
relationship to obtain the noise reduction in decibels: 


NR 



(4-2) 


A set of computer programs has been developed that performs this calculation. The 
primary version of the program computes the noise reduction at a single frequency 
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•s giv«n by Equation 4*2. This program it> described in detail in Section 4.1. 

Of practical interest is the noise reduction of broadband sound, described in 
terms of octave or one* third octave bands. While the puretone response could in 
principle be integrated numerically, this would require calculation of response 
at an enormous number of frequencies -- at least several around each resonance -- 
to be reliable. An exact analytic integration of the NR equation (4-2) was also 
not practical; therefore, two alternate '‘bandwidth" versions of the program were 
prepared, which mak... use of An approximate analytic frequency integration. These 
are described in Section 4.2. '’’he computer program's computational details, 

input and output parameters, and a listing of a program run case are given in 
Appendix A. 

4.1 STRUCTURE OF PROGRAM 

The greatest practical limitation to medal analysis techniques is that the number 
of modes grows geometrically as frequency increases. The number of terms to be 
included in the summation in turn grows geometrically with the number of modes. 

The highest frequency amenable to a modal calculation is limited by practical 
constraints of computer size and computation cost. For maximum practicality, a 
program must avoid computations that Include modes not substantially contributing 
to the net response. Programs that deterministically compute all modes and func- 
tions within a specified range of indices have a domain of applicability that is 
seriously limited. 

The computer program developed here was designed to avoid these limitations as 
much as possible. The main feature is that summation is performed in a selective 
manner, seeking the most important terms, ‘''’hs' summation begins with the mode 
whose resonant frequency Is closest to the e.xcitatlon frequency. Successive 
terms are added by summing through an ordered list of frequencies. Summation con* 
tinues until a convergence criterion is satisfied. 

Figure 4-1 shows a flowchart of the program. This program is PURTON, which com- 
putes the response to a puretone. Overall, it is divided into two parts: calcu- 

lation of modal frequencies, and the summation represented by Equation 4-1. To 
avoid repeated calculation of modal frequencies on successive runs for the same 
structure, ail required output from the first part may be saved on a file. The 
option of computing or reading an existing file is separate for acoustic and 
structural modes. 
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The user specifies a range of modal Indices for the first part of the program. 

The program modifies this in order to obtain a list of modes that Is complete In 

frequency space. For example, If acoustic Indices are specified from mns ■ 0,0,0 

to M,N,S, the list of computed modes would not be complete above n Refering 

n ,U , U 

to Equation 6 from Reference I, there are modes (m,0,0) with m > M such that the 
frequency Is less than for modes with m £M and n,s > 0. To avoid skipped fre- 
quencies, the in loop Is Innermost, then n, then s, with the n and s loops termi- 
nated when exceeds q g* addition to providing a complete frequency 

list, this procedure minimizes the number of roots k that must be o;»talned. 

A similar procedure is followed when obtaining the structural frequencies. It is 

complicated slightly by the fact that u Is not monoton I ca 1 ly Increasing with q 

Pd 

(as is u) with each of m, n, s) , and that there are three values of u) for 
mns pq 

each pair p, q. The basic principle Is the same, however. 
k.2 CALCULATION OF BANDWIDTH RESPONSE 

Equation A-2 gives noise reduction at a single frequency; of practical Interest 
Is noise reduction averaged over a finite bandwidth. Numerical Integration of 
the pure tone result would have been computationally very expensive. An exact 
analytic Integration of a band Is possible in principle, but in practice would be 
quite cumbersome. Each term In Equation 4-1 consists of the product of four 
linear oscillator terms of the form l/( . together with poly- 

nomials In u). Integration could be accomplished by expansion in partial fractions 
of the sixteenth order demoninator. Subsequent evaluation at limits corresponding 
to band edge frequencies would be unwieldly at best. 

An approximate bandwidth result may be accomplished by noting that the strongest 
frequency dependence Is due to the oscillator terms, and that only one at a time 
will be Important If there Is little modal overlap. Further, if the width of a 
resonance Is small compared to the bandwidth of Interest, then the Integration 
may be taken over rather than just over a bandwidth. It Is also assumed that 
the remainder ot the expression is approximately constant over the width of the 


resonant peak of Interest, and may be evaluated at the resonant frequency. The 
linear oscillator term Is thus replaced by 


(^- 3 ) 

Applying this approximate integration to each resonance within the band of 
interest would q i ve the complete resonant response. There would be a possibility 
of error, however, in that there could be duplication in case of overlapping 
modes. Also, non resonant response would be neglected. 

In order to avoid (or account fori these possible errors, two separate bandwidth 
programs were developed and used in conjunction with the puretone model. One 
version applied Equation k-3 to acoustic resonances only, so that it considered 
a resonant acoustic field driven by nonresonant structural response. The other 
version applied Equation 4-3 to structural resonances only, so that it considered 
a non resonant acoustic field driven bv structural resonances. These two programs 
are described in the following subsections. 



After modal frequencies are computed, the acoustic and structural frequencies 
are each sorted into lists in order of size. To retain identification of modal 
indices, arrays containing mns and pq are sorted in parallel to the frequencies. 


The structural constants 
quency list. 


C 

pq 


are also sorted 


in parallel to the structural fre- 


The summation of Equation 4-1, the second part of the program, begins with the 
acoustic mode with 1 oses t to the input frequency w. Summation first takes 

place over s. After th .• rirst term is computed, one term with higher frequency 
(."up" the list) and one with lower frequency ("down" the list) is computed. The 
summation over s continues, adding terms up and down the frequency list until 
convergence is obtained in both directions. The convergence criterion is that 
the ratio between the newest term and the running sum be less than some small 
amount. The next term added mav be either up or down the list, depending on 
which of the last up and down tennis was larger. Summation proceeds in the direc- 
tion of the last largest tenn. 




The summation over p,q Is then performed In a similar manner, beqirininq with u) 

closest to the input frequency. The program does not place any distinction on 

which of the three u) is used, but does keep track so that modes are not 

pq 

inadvertently counted more than once. 

The summations over s and over p,q together with the quantity denoted O are then 
multiplied together and added to the cumulative summation. The m,n summation 
then advances uo or down the acoustic frequency list to the next mode with dif- 
ferent m,n. 

The nature of the functions •) , P, in the structure/cavity coupling term, and I, 
in the joint acceptance term, are such that many of these may be zero. Inclusion 
of a zero term would give a false indication of convergence. The program, there- 
fore, tests for such zero terms, and if one is encountered, calculation advances 
to the next mode. To avoid errors due to rounding errors in floating point 
arithmetic, a zero condition is taken when the arguments of sine and cosine are 
terms within 0.01 radian of a zero condition. 

The calculation of Equation 4-1 gives the spatially averaged noise reduction 
ratio. To .jbtain some indication of the spatial variation of the interior noise 
field, a parallel sunvning is performed where each acoustic modal coefficient is 
multiplied by the square of the mode shape, Equation 1 from Reference 1, evaluated 
at a point of interest. The program includes four such points, with location of 
the points specified bv the user. 

A third possible case is a nonresonant acoustic field driven bv nonresonant 
structural response. This is a case readilv handled bv numerical integration 
of the pure tone program, since response in the absence of resonances would be 
smooth over a band. 

4.2.1 Acoustic Resonance in a Band 

This bandwidth orogram, called ACOBAN, applies Equation 4-3 to in Equation 

4-1. The summation over p.q proceeds exactly as in PURTON. The summations over 

m, n and s are combined into a single deterministic summation over all j Winq 

mns 

within the band specified by the user. The band is specified in terms of width 
(fraction of octave; for example, one octave, one-third octave, etcl and center 


frequency. At each acoustic mode in the mns summation, ui for use in other 

expressions is set equal to oj . Fiqure k-2 shows the flowchart for this 

mns 

proqram. 

k.2.2 Resonant Structural Transmission in a Band 

This bandwidth program, called STRBAN, applies Equation 4-3 to one resonator term 

in in Equation 4-1. The other two resonator terms, and the numerator, are 
pq 

treated as weak functions of u to be evaluated at the resonant u . The order of 

pq 

summation is changed, with the m, n and s summation performed first. These are 
done as in PURTON. The p,q summation is performed last, and is done as a deter- 
ministic sum over all resonant u in the specified band. At each structural 

pq 

resonance in the band, uj for use in the other terms is set equal to oj Figure 

pq 

4-3 shows the flowchart for this program. 
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Figure ^4-2. Flowchart of Main Program ACOBAN 
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Figure 4-3. Flowchart of Main Program STRBAN 













5.0 TEST CASES FOR ANALYTICAL PREDICTION MODEL 


Test cases to be compared with the prediction methods were necessary to determine 
the validity of the analytical model, and to ascertain what improvements on the 
model might be necessary for better accuracy. Tests with the Space Shuttle 
orbiter with an empty payload bay [38] and Shuttle orbiter model tests with pay- 
load configurations [3^1 were used for these comparisons. Section 5.1 begins 
the information about the full scale acoustic test comparisons on the orbiter 
and Section 5.6 starts the discussion of the Shuttle model test comparisons with 
a payload configuration. 

5.1 ACOUSTIC TESTS ON ORBITER OV-IOl 

The acoustic tests were performed on the Space Shuttle Orbiter Vehicle (OV-IOl) 
at Edwards Air Force Base in California. Two F-104 jet aircrafts were used as 
the acoustic noise sources. This jet noise source provided a propagating exci- 
tation with spatial correlation characteristics similar to those expected during 
launch and with an intensity similar to the launch environment. Reference 38 
gives the complete details and results of the tests, while the main test factors 
are summarized below. 

5 . 1.1 Test Configuration 

Figure 5"1 illustrates the basic test configuration at Edwards AFB. The two 
F-lOA jet aircraft were located aft of the orbiter to generate an acoustic field 
similar to that anticipated during launch. Two sets of tests were performed at 
the two aircraft distances of 100 feet and 250 feet. The 100-foot distance for 
tests 2 and 3 are of concern for this study. The two tests differed only due to 
the microphone locations for the test measurements of the payload bay interior 
noise levels, as discussed in the next section. 

5 . 1.2 Microphone Locations 

The eight interior microphone locations for tests 2 and 3 are shown in Figure 5-2. 
The microphones in test 2, which were designated location A in Figure 5~2 , were 
suspended on ropes that hung vertically down the payload bay centerline. In 
test 3 the microphones were pulled to the side, off the centerline, and into 
positions identified as location B, also shown in Figure 3-2. Exterior micro- 
phones were located on the orbiter surface as shown in Figure 5-3. 
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Fiqure 5-2. Microphone Locations Inside OV-IOI Payload Bay [381 
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Locations Outside OV-IOI Payload Bay [38] 






5.1.3 Exterior Noise Source Levels 


Since tests 2 and 3 were basically the same except for the location of the 
interior noise microphones, their exterior measurements were averaged to provide 
the forcing input on the structure. Noise transmission into the payload bay was 
primarily through the payload bay doors, especially in the low frequency range of 
excitation. Therefore, the test results for the doors alone will be used in the 
test and analytical comparison. The average exterior sound pressure levels (SPLs) 
measured on the doors are shown in Figure 5"^, along with a corrected door level. 
The corrected door levels were obtained because of a strong circumferential 
gradient at certain frequencies. Tables 5*1 and 5"2 list the measured cne-third 
octave SPLs at each microphone location for test 2 and test 3, respectively. 


5.1.^ External Noise Field Description 


The correlation function for the convected excitation pressure field vias repre- 
sented by an e.xponent i al ly decaying cosine function. For the longitudinal direc- 
tion, it is g i ven by 


where 


p^(E. ij) 





» 


“ , wave number at frequency m, 

^x 

phase (trace) velocity over surface of vehicle, 
correlation decay factor, 

x* - X, longitudinal distance between two points on 
surface of vehicle. 


The circumferential correlation function is of the same form as the longitudinal 
funct i on : 


Py(?» <*)) 



(kyC) 
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where 


k 


y 

U 


s 


wave number at frequency ai, 

trace velocity in circumferential direction, 

correlation decay factor, 

y' - y, transverse distance betv/een two points. 
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TABLE 5-1. 

ONE-THIRD OCTAVE-BAHD SOUND PRESSURE LEVELS ON DOOR 
TEST 2 (NEAR SOURCE) 100- RPH 
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TABLE 5-2. 

ONE-THIRD OCTAVE- BAND SOUND PRESSURE LEVELS ON DOOR 
TEST 3 fNEAR SOURCE) 100 RPM [ 3 I 1 ] 
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The correlation decay factors and trace velocities were det’jrmined experimentally 
from the test between microphone pairs, and their averaged values are given below 
for the payload bay doors: 


where 


- 0,92k, 

k ■ (i)/C , and C ■ speed of sound, 

o’ o ^ ’ 

a,- 3-.. 4, 

k ** 0.26k, 

y 

- 3.74. 


From Reference 32, the AMTF values for the longitudinal factors are 

k^ » 0.90k, 

^ - 31 . 0 . 

The values of a and k were assumed to be the same for tests 2 and 3. 


5 . 1.5 Determining the Measured Payload Bay Noise Reduction 

The exterior sound pressure levels on the payload bay doors measured in tests 2 
and 3 were averaged and weighted for circumferential gradient. These values are 
shown in Figure 5"^. Tables 5") and 5-2 also list the individual SPL for each 
microphone location and their average value at each one-third octave band. 
Interior SPLs measured at location A (test 2) and location B (test 3) were space- 
averaged by the following equation to determine the payload interior noise levels 

/ V r 

<^SPL^ * 10 log^^ 0.33(10) +0.67(10) 

= space averaged value of sound pressure level, 

= the average SPL measured for microphones at loca- 
tion A in test 2, 

= the average SPL measured for microphones at loca- 
tion B in test 3. 

Figure 5-5 gives these space-averaced SPL results. Tables 5~3 and 5"^ give the 
SPL at each microphone location in the bay and also list the average one-third 
octave-band SPL. The SPLs at location B were v^eighted double those of location A 


where 
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TABLE 5-3. 
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TABLE 5~‘i. 

OME-THIRD OCTAVE-BAND SOUND PRESSURE LEVELS INSIDE PAYLOAD BAY (OFF TO SIDE) 
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because of the payload bay symmetry. By the symmetry factor, the noise levels on 
the other side of the bay were assumed to have the same values as those at loca- 
tion B. This situation can be easily seen in Figure 5*2. 

To determine the payload bay noise reduction (NR) from these one-third octave-band 
measured data, the space averaged interior noise levels were subtracted from the 
exterior door levels. Since the dominant noise transmission at these low fre- 
quencies Is through the doors, little accuracy Is lost on calculating the NR by 
considering only the transmission of the exterior noise through the doors. These 
noise reduction levels are plotted for each one-third octave band from 10 Hz to 
250 Hz In Figure 5-6. 

5.1.6 Spatial Vart ability of the Measured Noise Reduction 

The spatial variability of the empty payload bay measurements is shown in Figure 
5 - 7 . The scatter of the 16 med^surements from tests 2 and 3 are given relative to 
the space-averaged level. The largest variation can be seen in the 40-Hz band, 
where the full range is about 20 dB. For bands below 100 Hz, the data scatter 
becomes more prevalent as the frequency decreases. Except for the 63 Hz band, 
all the measurements are less than 5 dB above the space-averaged value. But since 
16 measurements Is a relatively small sample within the entire payload bay space, 
there are undoubtedly some locations where the low frequency levels exceed the 
space averaged levels by more than 5 dB. 

5.2 INPUTS FOR THE ANALYTICAL MODEL PREDICTIONS 

The following section describes the data that were used to model the Shuttle 
Orbiter payload bay structure, the payload bay enclosure, and the payload geom- 
etry. These Inputs for the analytical representation were used with the basic 
computer program developed by Wyle, which is described In Section k.O, 

5 . 2.1 Absorption of OV-IOI Payload Bay 

The interior absorption of the payload bay was measured by exciting the bay with 
loudspeaker sources and determining the reverberation time. From the reverbera- 
tion time, the volume loss factors in one-third octave bands were computed and 
the average wall absorption coefficients were estimated. Figure 5-9 shows the 
reverberation times used to compute the acoustic damping in the analytical model 
of the computer program. 
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Measured Noise Reduction for Empty Bay, dB 


Ilf?' ^ 








One-Third Octave Bond Sound Preseire Level Relative to Spoce Averaged Level, dB 



Figure 5"7. Variability of Measured Payload Bay Acoustic Levels 

for OV-IOI Tests 1 and 2 [3^1 
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Figure 5”8. Payload Bay Reverberation Time 
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5.2.2 Structure of th» Orblf r 


Figure shows e general view of the Space Shuttle orbiter. Figure 5-10 shows a 
typical cross section through the cargo bay that Is approximately 60 feet long 
with a roughly circular usable cargo volume approximately 16 feet In diameter. 

The side walls and bottom are essentially flat, with truss frames (shown In 
Figure 5*10) at about 5* foot Intervals. The doors, which have a roughly circular 
cross section, consist of five pairs that open In two pair of units as shown In 
Figure 5-11. 

For the purposes of matching the orbiter structure to the cylindrical coordinate 
geometry of the analytic model, the payload bay structure Is modeled in the fol- 
lowing way: 

e The structure Is modeled as a cylinder, l6-foot diameter by 60- 
foot length, with rigid end walls. 

e The doors are considered to comprise a l80-degree full length 
panel, joined to the fuselage by shear diaphragm boundary 
condi t ions. 

Detailed structural and vibrational properties of the doors are discussed in 
Section 5.2.5. 

5.2.3 Payioad Bay Doors 

The payload bay doors consist of five pairs, as noted above. Figure 5- 1 1 shows the 
structural arrangement of one of the four main door halves. The structure con- 
sists of the skin, end frames, seven intermediate frames, a torque box at the 
hinge line, and a center beam. The skin is a graphite-epoxy sandwich with nomex 
filler. The frames are graphite-epoxy with hat-section intermediate frames. The 
fifth pair or doors (rearmost) is about one-eighth the length of the others, and 
has no intermediate frames. Not shown in Figure 5-11 are various latches, skin 
doublers, hardware, etc. Table 5-5 lists all components of the doors together 
with their weights [39]. Table 5-6 summarizes the material propertle- of the skin 
and frame materials [^DJ. The five door pairs are joined into two unit pairs 
that open and close separately. The joining is done with shear pins. When 
closed, the doors are latched with a combination of shear pins and latches. 
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re 5" 10. Cross Section of Space Shuttle Carno Bay 
Showing Typical Truss Frame 
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TABLE 5-5. 

SUHHARY OF OBBITER 001 PAYLOAD BAY DOOR WEIGHTS 


Component 

Weight (ib.) 

Forword Honoycomb Ponol Skin 

373.1 

Coro 

87.1 

Bonding 

100.2 

Aft Honoycomb Ponoi Skin 

383.2 

Coro 

84.9 

Bonding 

100.7 

Intormodioto Fromot 

549.5 

Closoout Fromos 

260.0 

Torquo Boxes 

134.6 

Contoriino Booms 

106.4 

Hingolino Closeouts 

51.0 

Lotch Backup Structure Right 

75.8 

Loft 

72.8 

Expansion Joints 

202.9 

Miscellaneous Hardwore 

99.1 

Lightning Protection 

90.9 

Linkage and Hinges 

58.0 

1 

Door Hinges on Door 

195.4 

Sealant 

20.0 

Seal Supports 

116.4 

Seals 

293.0 
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TABLE 5-6. 


PROPERTIES OF PAYLOAD BAY DOOR MATERIALS 


GR/E Skin 

Thickness: 
Young's Modulus: 

Dens i ty : 

0.016" (each face sheet) 
3.5 X 16^ psi (90“) 

12.8 X 10^ psI (0*) 

0.057 Ib/ln^ 

Nomex Core 



Thickness: 

0.6" 


Cell Size: 

1/8 Inch 


Density : 

0.3 Ib/ft^ 



The door structure for the flight operational orbiter aiso includes two pairs of 
space radiators that open on a hinge line almost in common with the door hinges. 
When closed, the radiators are secured to the doors by a system of latches and 
ball joints. No strains from loads on the doors are transmitted to the radiators. 
The radiators were not installed on the OV-IOi vehicle during these noise 
tests [381. 

The structural properties of the doors as needed for the stiffnesses are summa- 
rized In Table 5-7. These were computed on the basis of the properties in Tables 
5-5 and 5-6 and dimensions obtained from assembly drawings provided by NASA. 

Masses concentrated at the door/fuselage hinge line (torque boxes, hinge hard- 
ware, etc) were neglected In computing mass density because these are at a node. 

Representation of the doors as a single 180“ panel Is not entirely satisfactory 
because of the pin connections between halves at the top centerline. Figure 
5-l2a shows the cross-sectional mode shape for q • 3 for the 180* homogeneous 
shell and the actual s*^ ’pe for the two-piece door with center hinge line Is shown 
In Figure 5-12b. The t<ue boundary conditions are not amenable to representation 
by an analytic expression as convenient to work with as Equation 30 fi'om Refer- 
ence I. The main difference between Figures 5-1 2a and 5- 12b Is that b is con- 
siderably less stiff. The center hinge was, therefore, handled by reducing the 
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TABLE 5-7. 

STRUCTURAL PROPERTIES OF PAYLOAD BAY DOORS 


QUANTITY 

SYMBOL 

WHOLE DOOR 

PANEL BETWEEN 
FRAMES 

Length 

1 

60 feet 

1.5 feet 

Rad i us 

b 

8 feet ' 

8 feet 

Circumferential Extent 


09 

O 

o 

90* 

Stressed Skin Thickness 
(both layers) 

As,/I 

0.00267 ^eet 

0.00267 feet 

Skin Filler Thickness 

‘f 

0.050 feet 

0.050 feet 

Shell Density 

p. 

0.0989 slug/ft2 

0.0128 slug/ft2 

Longitudinal Young's Modulus 

S 

ESs 

l.8A3xlO^ Ib/ft^ 

l.8A3xlO^ Ib/ft^ 

Circumferential Young's Modulus 


O.SOAxlO^ Ib/ft^ 

O.SOAxlO^ Ib/ft^ 

Frame Young's Modulus 

I.8i»3xl0^ Ib/ft^ 

--- 

Frame Area 

Af 

0.00986 ft^ 

... 

Frame Moment of Inertia 

F 

«F 

0.183x10 ^ ft 

V « V 

Frame Spacing 

iF 

1.58 feet 

MB W 

Frame-Skin Centroid Distance 

X 

0.109 feet 

— 

Poisson's Ratio 

V 

0.3 

0.3 













a. Homogeneous Door Structure 




b. Door Structure with Center Hinge 

Figure 5“ 12. Circumferential q ■ 3 Mode Shape for 
Homogeneous and Hinged Doors 

circumferential bending stiffness to compensate. For a force directed downward 
at the center, the split semicircle (12b) will be displaced approximately 30 times 
as far as the whole semicircle (12a). This was determined by applying the calcu- 
lation procedure in Section 80 of Reference l|| to both cases. A relaxation 
factor of 30 is probably too great for the doors, however, as the driving force 
will not be concentrated on the centerline. For purposes of calculating low 
frequency vibration of the doors, the circumferential bending stiffness was 
divided by a factor of 20. 

5 . 2.14 Payload Door Resonant Frequencies 

Table 5‘8 lists the payload bay door modal frequencies and indices through the 
50 Hz one-third octave band. Table 5*9 shows the frequencies for eight of the 
first fen symmetric modes calculated from a finite element analysis of the door 
structure [l42]. The finite element calculation is based on a structural descrip- 
tion much closer to actual than the "relaxed" shell used here. The symmetric 
modes correspond to odd values of the circumferential modal index q. The first 
finite element frequency of 8. i7 Hz corresponds well with the 1,3 mode of 9.3 Hz. 
The sequence of finite element frequencies increases In general with the 
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TABLE 5-8. 


STRUCTURAL MODAL FREQUENCIES AND INDICES 
FOR PAYLOAD BAY DOOR MODEL THROUGH 50 HZ BAND 


P. q 

f 

P. q 

f 

1, 2 

7.5 

4. 6 

39.5 

1, 3 

9.3 

4, 3 

39.8 

2, 3 

14.9 

5. 4 

40.0 

1. 4 

16.0 

5, 6 

42.5 

2, 4 

17.6 

3, 2 

43.4 

1, 1 

17.7 

6, 5 

43.9 

3, 4 

22.4 

6. 6 

46.6 

2, 2 

23.1 

1, 7 

49.6 

1. 5 

25.1 

2. 7 

49.9 

2. 3 

25.3 

2, 1 

50.5 

3, 3 

26.0 

3, 7 

50.5 

3, 5 

27.6 

6, 4 

50.7 

4, 4 

30.2 

4, 7 

51.6 

4, 5 

31.3 

7, 6 

51.8 

1, 6 

36.4 

7, 5 

52.0 

2, 6 1 

36.7 

5, 7 

53.4 

5. 5 

36.9 

5, 3 

54.6 

3. 6 

37.7 

6, 7 

55.9 


p * number of longitudinal half waves, 
q ■ number of circumferential full waves. 
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TABLE 5-9. 

COMPARISON BETWEEN DOOR RESONANT FFEQUENCIES FROM FINITE 
ELEMENT MODEL AND PRESENT MODEL SYMMETRIC MODES 


PRESENT 

MODEL 

FINITE 

ELEMENT 

MODEL 

p» q 

f 

f 

1, 3 

9.3 

8. 17 

2. 3 

14.9 

9.65 

3, 3 

26.0 

10.85 

4, 3 

39.8 

17.69 

5, 3 

54.6 

20.04 

6, 3 

69.2 

23. 11 

7. 3 

50.5 

26.07 

8, 3 

96.6 

31.50 


longitudinal modes p and with the odd q modes. The first and second symmetric 
modes are shown In Figures 5-13 and 5-14, respectively. 

At high frequencies, when the wavelength is no longer large compared to the spac- 
ing between ring frames, the individual response of panels between frames must be 
considered. These are taken as independent panels, of circumferential extent 90 
degrees and longitudinally between rings, with properties corresponding to the 
skin properties in Table 5-7 and supported by shear diaphragms. Table 5-10 lists 
the first few frequencies calculated for a typical skin panel between frames. 

The lowest frequency is over 400 Hz, so that these modes are of little importance 
for the present study. 


TABLE 5-10. 

RESONANT FREQUENCIES FOR DOOR PANELS 
BETWEEN FRAMES 


MODE 

p. q 

FREQUENCY 

f 

1, 1 

421.1 

1. 2 

435.5 

1. 3 

458.9 

1, 4 

490.2 

1. 5 

528.7 

1. 6 

573.4 

1. 7 

623.7 

1. 8 

679.2 

1. 9 

739.8 

1 , 10 

805.5 


51 



Figure 5~I3. ^ Door - Fuselage Model Modes 

Sym. TCL Constraints 
F requency = 8.17 cps 
P, q = • . 3 
(from Reference *i2) 







5»2.5 Structural Pimping 

The structural damping values, In terms of the loss factor Af/f, for the payload 
bay doors Is taken from Reference 3^ to be n ■ 2/f, where f Is In hertz. 

5.2.6 Payload Bay Resonant Frequencies 

The Interior of the payload bay was represented as a cyllnd'’lcal cavity 16 feet 
In diameter and 60 feet long. Payloads were modeled as a concentric Inner cylin- 
der. For this test case comparison, the noise reduction was computed only for 
the empty bay case. Figure 3~l describes the bay geometry. 

Table 5*11 lists acoustic modal frequencies up to 112 Hz (this Is through the 100 
Hz one-third octave band) together with their modal Indices. The first radial 
mode (I.e., s 0) occurs In the 80 Hz band, so that (except for damping and 
volume effects) the empty bay calculation should give the same result as would 
calculations with payloads. Since low frequencies are the primary Interest In 
the present study, there Is little loss of generality In considering only the 
empty bay. 

The payload bay normal acoustic modes were also calculated with the cavity 
idealized by a rectangular parallelepiped with one surface deformed to represent 
the payload bay doors. This Is a perturbation technique used in Reference 3^ to 
model the payload bay and the geometry. The dimensions of the analytical model 
are shown In Figure 5"I5. Table 5*I2 compares the normal modes from this compu- 
tation with modes calculated using the right cii*cular cylinder idealization. 

5.2.7 Acoustic Losses 

There are two ways in which acoustic energy can be lost from the payload bay; 

• Absorption by hardware inside the bay. This includes the effect 
of payloads, of frame trusses, of structural textures, etc. At 
low frequencies, these may all act as porous materials. 

a Transmission of sound out of the bay through the structure. 

This Is the inverse process of transmission in. 
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m, n, s 


TABLE 5-n 

ACOUSTIC MODAL FREQUENCIES, 
THROUGH too HZ 


m, n, s 


2 , 2 , 0 
3 . 2 , 0 
8 , 0 , 0 

7, I, 0 

2 , 0 

5 . 2 , 0 
9 , 0 , 0 

8 , 1 , 0 
0. 0, 1 

1. 0, 1 

2, 0, 1 
6 . 2 , 0 
3. 0, 1 
4, 0. I 
10, 0, 0 
9, 1, 0 
0, 3. 0 


40.9 

41.9 

44.9 

46.5 

49.5 

55.3 

55.8 

61 .9 

65. 1 

67.8 

68.4 

69.2 


EMPTY PAYLOAD BAY, 
BAND 


m, n , s 


1. 3, 0 

7 , 2 , 0 

2 , 3 . 0 
5 , 0 , 1 
3, 3. 0 

, 3, 


10 , 1 , 0 
6 , 0 , 1 
11 , 0 , 0 

5, 3. 0 
7 . 0 , 1 
9 , 2 , 0 

6 , 3 . 0 
11 , 1.0 
12 , 0 , 0 


number of longitudinal half waves, 
number of circumferential full waves 


number of radial full waves. 
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a - 17.50 ft; b • 12.58 ft; c • 60.42 ft; R - 4.33 ft 
Figure 5‘*15. Deformed Parallelepiped (from Reference 34) 


TABLE 5-12. 

COMPARISON BETWEEN SOME ACOUSTIC MOOES 
FROM THE PRESENT MODEL AND 
A PERTURBATED RECTANGULAR PARALLELEPIPED MODEL 


PRESENT 

MODEL 

PERTURBATED 

RECTANGULAR 

PARALLELEPIPED 

MODEL 

m, s 

f 

f 

0, 1, 0 

40.8 

27.07 

1, 1, 0 

41.9 

28.60 

2, 1. 0 

44.9 

32.77 

3. 1. 0 

49.5 

38.73 

4, 1. 0 

55.3 

45.80 

5, 1, 0 

61.9 

53.53 

0. 2, 0 

67.8 

61.50 

I. 2, 0 

68.4 

62.19 

6. 1. 0 

69.2 

61.67 

2, 2. 0 

70.3 

64.22 

3. 2, 0 

73.3 

67.46 

7, 1, 0 

76.9 

70.09 
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Th« lots factor may ba raprasantad by tha ampty payload bay ravarbaratton tast [3^1 
manttonad In Sactlon 5*2.1 as 



whara f 1$ In hartz and T Is ravarbaratlon tima from Plgura 5*6. 

O w 


Tha sacond factor, retransmission of sound, Is explicitly neglected In tha formu* 
I at I on of tha coupling aquations. It Is assumed that tha shall Is driven by the 
exterior sound field alone. This Is correct only If the Interior sound pressure 
Is small compared to exterior, that Is, NR Is large. If NR Is small, tha affect 
of Interior pressure must ba considered. This Is equivalent to calculating tha 
Inverse problem. 


Calculation of transmission from Inside to out is just as complex as tha outside 
to Inside analysis treated thus far. An approximate allowance can be made, how- 
ever, by noting that the process Is essentially linear. The Interior and exterior 
pressure are related by 


Cl), • AP, (2) 

where ()^ denotes I n vacuo she 1 1 response; that Is, the effect of interior pres- 
sure Is not considered. Counting interior pressure. 

Pi • A fpo - fPt)J • (3) 

Equation 3 assumes the process Is reversable. If only a single mode is considered, 
this is true. Since the present approximation has structural modes uncorrelated 
with each other, and acoustic modes are uncorrelated in the spatial average, this 
Is a reasonable assumption. At low frequencies, there are few modes present, so 
that Equation 1 Is reasonable from this viewpoint as well. At high frequencies, 
where there are many overlapping modes, an equation similar to 3 but in terms of 
intensity p^ rather than pressure would be more appropriate. This Is the archi- 
tectural acoustics regime, however, and is not of direct interest. 
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Th« computer programs Includes this second factor as an adjustment to the noise 
reduction calculation. The MR was calculated Initially In terms of (Pi)y* Epua* 
tlons 2 and 3 were manipulated to relate this "true" Interior pressure P| as 


P 


I 





In terms of an adjustment to noise reduction, NR ■ -20 log P|^Po* 


-(NR) /20 

NR • (NR)^ ♦ 20 log^g 1 + 10 


(5) 


The equivalent expression for the architectural acoustics case would have 10 In 
place of 20 In both cases. 


5.3 PREDICTION OF PAYLOAD BAY NOISE REDUCTION 

The inputs for analytically determining the orb! ter emoty payload bay noise 
reduction (NR) were submitted to the Wyle computer models for computation. All 
three versions of the computer program were required to calculate the total NR 
from the 10 Hz to 250 Hz one-third octave bands. The NR due to acoustic reso- 
nances was modeled by considering the nonresonant structural response of the 
doors driving resonant acoustic responses in the payload bay. The acoustic ver- 
sion of the program Is called AC06AN. When the NR was governed by the structural 
resonances occurring in the frequency band of interest, the response was con- 
sidered to be a resonant structural response driving a nonresonant acoustic field. 
This program is called STRBAN. The noise reductions obtained by these programs 
were then added to obtain the total NR due to resonant acoustic and structural 
transmission by the following equation: 


NR 


-10 log 


lo! 


I 


NR 


10 


__A 

10 


10 


10 


where NR^ « resonant acoustic NR, 

NRg ■ resonant structural NR. 
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If no r«son«nc« of th« doors or payload bay cavity axistad for a givan octava 
band, than tha PURTON varsion of tha program was usad to calculata tha NR from 
tha rasponsa of nonrasonant structura driving a nonrasonant condition In tha pay* 
load bay cavity. Tha NR was computad at discrata fraquancias in tha dasirad ona* 
third octava band and was than intagratad by summing tha individual NRs to obtain 
a total for tha band. 

Tha pradic^ad ona*third octava-band noisa raduction levals are shown In Figura 
5*16 for tha empty payload bay case. At each one*third octave band, the values 
of space-averaged NR corresponding to the type of noise transmission are plotted. 
For example, the 10 Hz band from Figure 5*16 shows about the same noise transmis* 
sion for both resonant structural and acoustic response. Thes'e two values of NR 
calculated by ACOBAN and STRBAN are combined to give the total one-third band 
level. At 10 Hz the puretone response integrated over the bandwidth by the PURTON 
program gives approximately the same result also. 

A nonresonant condition is noted in the 12.5 Hz band since there are no structural 
door or payload bay resonances. This can be seen by Tables 5*8 and 5*1 1 • respec- 
tively. Therefore, the PURTON version was used to compute the NR for single 
frequencies within the band and then integrated to obtain a one-tMrd octave-band 
NR level. 

In some frequency bands, it can be seen from Figure 5*16 that the noise trans- 
mission is dominated by either acoustic or structural resonances. For example, 
with the 20 Hz band, the NR is low because the noise transmission for the acous- 
tic resonant case is very much greater than the structural resonant case due to 
strong acoustic responses created by the structural vibrations of the payload 
bay doors. This condition can be seen by looking at Tables 5*8 and 5*11. The 
20 Hz band containing the 18.6 Hz acoustic longitudinal mode, where m • 2, can 
be excited by several matching structural modes with an equal wave number. These 
structural modes also have resonant frequencies close to the acoustic resonance. 
The 22.4 Hz door structural mode, on the other hand, with a longitudinal wave 
number p ■■ 3, has only one close acoustic mode to couple with. That mode Is at 
27.9 Hz, which is in the 25 Hz band. 
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Noise Reduction, dB 






One-Third Octave Band Center Frequency, 11/ 


Kiqure 5~l6. Predicted Noise Reduction for Empty Paylo.id Bay 


In ch« 16 Hz band in Pfgura 5*16, hart Is a eata whara tha structural rasonant 
response alona Is rasponstbta for tha nolsa transmission baeaiisa no payload bay 
acoustic modes exist. Tha 16 Hz door mode with a longitudinal wave number of one 
will couple well with the random externai noise field because correlation lengths 
are typically comparable to acoustic wavelengths. Since the structural wavelength 
of the p ■ I mode is the length of the bay cavity (60 feet), and the 16 Hz acous* 
tic excitation wavelength is about 70 feet, the payload bay door structural 
response is expected to be strong due to these comparable wavelengths. At the 
higher one*third octave bands in Figure 5*16, the noise transmission is about 
equally divided between the acoustic and structural resonant condition. 

5.3.1 Comparison Between Measured and Predicted Noise Reduction for Empty 
Fay load Bay 

Figure 5*17 iilustrates the NR curve from the measured data (Figure 5*6) plotted 
along with the NR predicted from the analytical model (Figure 5*16). The pre* 
dieted NR curve seems to follow the measured NR trend, that of the NR decreasing 
with increased frequency In the 10 to 250 Hz range. Generally, the predicted 
NRs are fairly close to the measured levels, except at several one-third octave 
bands. In Figure 5*18, a plot to readily indicate the differences between t.'ie 
predicted and measured noise reduction levels is given. The predicted NR spectra 
is subtracted from the measured spectra to show these relative differences, and 
the 0 dB level is the measured NR used for this reference in Figure 5*17. 

Approximately 87% of the predicted NR values are within 5 dB of the measured NRs, 
and approximately 60% are 3 dB or less from the measured levels. Bands of 10 
and 12.5 Hz seem to have the best /agreement with the test NRs. One important 
reason for this is that the door structural model modes 'osely match the more 
accurate finite elentent values as listed in Table 5*9. Also, the lower order 
longitudinal acoustic modes are easier to model at these frequencies, both in 
their mode shape and resonant frequency. 

The worst discrepancy occurs in the 16 and 20 Hz one-third octave bands where the 
predicted NRs are about 6.5 and 7.5 dB less than the measured values, respec- 
tively. At 17.7 Hz, the payload bay door mode with p,q ■ l,i (from Table 5*8) 
would be highly correlated to the random noise field, both longitudinally and 
circumferentially, for the reasons mentioned in Section 5.3. Therefore, this 
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Noise Reduction, dB 







Predicted Relative to Measured Noise Reduction, dB 




One-Third Octave-Band Center Frequency, Mz 


Figure 5-l8. Predicted Oinpty Payioad Bay Noise Reduction Relative to Measured Noise Reduction 



predicted structural mode would couple easily with the external noise field and 
would transmit the noise more efficiently. 

In the 20 Hz band, an acoustic resonance (18.6 Hz, m ■ 2) In the payload bay can 
be excited by several structural modes having the same longitudinal wave number 
and having close resonant frequencies. These low order structural modes are also 
well coupled to the external noise field in this frequency range. Therefore, the 
dominant factor, In these frequency bands of more predicted noise transmission 
than the test results, seems to deal with the calculated door modes. The present 
model of the door modes does disagree somewhat with the higher finite element 
modes calculated In Table 5-9. 

The acoustic modes are more easily modeled at lower frequencies, so more confi- 
dence can be placed in their accuracy. The modes for the present model of a 
cylinder were compared to the acoustic modes calculated for a perturbated 
rectangular parallelepiped model of the orbiter payload bay, as shown in Figure 
5~I5 and Table 5-12. The longitudinal modes were found to be the same for each 
model, and from Table 5~I2 It can be seen that the resonant frequency of the n 
wave number modes for the present model are greater than the parallelepiped model 
modes in the lower frequency bands, but they become more closely matched as the 
frequency increases. The mode shapes will be slightly different for the n and j 
modes because of the different modal geometries representing the bay cross sec- 
tion. The m modes will have the same mode shape for each model. 

Another factor that could significantly affect the prediction accuracy is the 
structural and acoustic damping factors. Possibly the damping values specified 
in the analytical model may not be entirely representative, which could easily 
lead to errors in the NR estimates. 

5.3.2 Damping Effects on the Payload Bay Noise Reduction 

The effect on the noise reduction of varying the structural damping factor can 
be seen in Figure 5-19. A smaller damping factor tends to reduce the noise 
reduction in the payload bay, and this same trend is also true for the acoustic 
damping factor effect on the noise reduction. Therefore, it can be observed 
that the damping value specified for the structural and acoustic normal modes is 
very important in an accurate modeling of the noise transmission problem. 
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Figure 5-!9. Effects of Structural Damping on the Payload Bay Noise Reduction 




5«3*3 Spattal VTiabllltv of tht Pr«dlcted Not$t Rtductton 

To lllustrata the spatial characteristics of the acoustic response In the payload 
bay, the calculated NR at one point In the bay Is shown plotted In Figure 5-20. 
The point was taken on the centerline of the bay, 15 feet from the front of the 
enclosure. At this particular point, the NR varies greatly from the space- 
averaged value In most one-third octave bands. The NR at the point Is generally 
larger than the average NR for the cavity. This trend can also be seen with the 
measured data In Figure 5~7, where the NR can vary greatly on the high side in 
the lower frequency bands. A node point is also noted at this location In the 
20 Hz band due to a very high calculated NR. Also, the NR for some other loca- 
tions can be expected to be much lower than the average value. 

5.1* ACOUSTIC ENVIRONMENT FOR A PAYLOAD CONFIGURATION FROM MODEL TESTS 

Acoustic tests were performed on the Rockwell International (Rl) one-quarter 
scale flexible model of the Space Shuttle orbiter with model payload configura- 
tions [3A]. A one-quarter scale model was constructed by Rl for low frequency 
dynamic experiments related to problems such as flutter and "pogo," and was 
designed to represent the full scale dynamic characteristics of the orbiter. The 
dynamic characteristics associated with noise transmission may not be scaled vi/ith 
a high degree of accuracy with this model though, particularly for the payload 
bay doors. However, it is believed that the model is accurate enough to deter- 
mine the changes in payload bay acoustic levels when payloads are introduced. 

These tests involved the measurement of space-averaged sound pressure levels in 
the empty bay and when one of three payloads was present. The exterior noise 
field was generated by five loudspeakers located at the rear of the model, and 
the field had the properties of acoustic plane waves propagating in the forward 
direction. For the empty bay teft, noise levels were measured at a total of 42 
locations, and the data were reduced to a space-averaged one-third octave-band 
spectrum. When a payload was introduced in the bay, space-averaged spectra were 
obtained for each of the several subvolumes surrounding the payload. The differ- 
ences between these spectra and that for the empty payload bay determined the 
effect of the payload on the bay noise levels. 
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Figure 5~20. Predicted Noise Reduction 






5.^.1 Payload Configuration 

Tha payload configuration, dasignatad as "Dalta'D," doas not slmulata any raal 
payload, but was dasignad as a diagnostic payload bacausa of its craatlon of 
tntarasting acoustic subvolumas within tha payload bay. This payload configura- 
tion consists of a series of five cylinders of different diameters plus an aft 
pallet. Figure 5-21 Illustrates a top and side view of tha payload configuration. 
Tha large diameter cylinders are of considerable interest because they have a 
major Impact on the payload bay acoustics [3^» Vci. I] and constitute a challeng- 
ing situation for any analytical model. 

5.4.2 Measured Data for the Oelta-D Payload Effects 

The space-average one-third octave-band levels for each of the seven subvolumes 
were subtracted from the average empty bay levels to obtain the relative effects 
of the payload introduction into the bay. These relative levels to the average 
empty bay levels are shown in Figure 5~22. From this data, it can be seen that 
targe variations in levels occur in the low frequency range below the 31.5 Hz 
one-third octave band. The curves also show that empty bay levels are generally 
not affected significantly by the payload from the 31.5 Hz band to the 250 Hz 
band. The one exception is with the 95% diameter payload, where the levels above 
the payload are higher than the average empty bay levels. 

5.5 INPUTS FOR THE ANALYTICAL MODEL OF THE PAYLOAD EFFECTS 

The noise reduction results obtained with the computer program for the effects 
of a payload were based on the analytical model of the full scale orbiter OV-IOI 
tested at Edwards AFB [34], as described in Section 5.1. The full scale data 
from the OV-IOI test were used in the predictions because large differences were 
found to have occurred betv/een the OV-IOI and the one-quarter model noise reduc- 
tion levels for an empty payload bay below the 63 Hz one-third octave-band 
region [34, Vol. V]. These differences demonstrated that the one-quarter scale 
orbiter model does not exactly represent the OV-IOI acoustically. Therefore, no 
attempt was made to scale up the one-quarter model to predict the effects of the 
introduction of a payload on the empty bay noise levels. The predictions are 
compared to the model test data on a qualitative basis to obtain trends and rela- 
tive magnitudes. The analytical inputs of one payload configuration are used in 
the computer programs described in Section 4.0 to obtain a space-averaged noise 
reduction spectrum for the entire space enclosing the payload. 
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Figure 5-22. Effect of Oelta-0 Payload on Subvolume 
Soace-Ave raged Sound Pressure Levels 
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5. 5. 1 Payload D<lf*D Configuration 

This payload configuration , shown in FIgura S“2K was modalad by a single 
cylinder placed concentrically in the cylindrical model of the empty bay (Figure 
S'D* with a volume equal to the total volume of the payload. This cylindrical 
payload simulation had a radius of 4.82 feet, and a pay toad bay length of 60 feet. 

5.5.2 Structure of the Orbtter 

The orbiter structural properties are the same as described in Section 5.2.2 for 
the OV-iOl used in the acoustic tests [38]. 

5.5.3 Payload Bay Door Resonant Frequencies and Structural Damping Factor 

The introduction of a payload configuration does not change the door modes or 
damping factor, so the value for these inputs are the same as given in Sections 
5*2.4 and 5.2.5* 

5.5.4 Payload Bay Resonant Frequencies with Payioad Present 

For the introduction of the payload into the orbiter bay. Table 5~I3 lists the 
bay modal frequencies and Indices through the 100 Hz one-third octave band. On 
comparing the empty bay modes in Table 5~H to the payload present modes, it is 
seen that the first three modes are the same. But the payload case brings the 
first circumferential mode (n«l) of the empty bay (40.9 Hz) down to 28.0 Hz with 
the introduction of the payload. The payload also increases the first radial 
mode (s«l) from 85.1 Hz of the empty bay to 177.8 Hz. Generally, the payload 
present case will not affect the empty bay longitudinal modes (m) , but it will 
lower the resonant frequencies of the circumferential modes (n) , and raise the 
resonant frequencies of the radial modes (s). 

5.5.5 Acoustic Damping of 0V~I0I Payioad Bay with Payload Present 

The payload bay acoustic damping factors due to the payload being present was 
estimated to be greater than the empty bay values. The acoustic loss factor was 
based on 350 Sabins in Reference 43, and it is given by 

n » Af/f - i.27/f 

where f is in Hz. 
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5.6 PREDICTION OF THE NOISE REDUCTION OF PAYLOAD lAY WITH A PAYLOAD PRESENT 

Figure 5*23 depicts the noise reduction (NR) calculations for the Delta*D payload 
configuration. As with the empty payload bay NR levels* several ona*thlrd octave 
bands have their noise transmission governed by either structural or acoustic 
resonances. Reasons for this situation are discussed In Section 5.3 for the 
empty bay NR results. Also* as the modal densities Increase with Increasing one- 
third octave band frequencies* the structural and acoustic resonant responses 
share about the same amount of the noise reduction. 

5.6.1 Comparison between Empty Payload Bay and a Payload Configuration 

In Figure 5-2A* the NR curve from Figure 5*16 for the predicted empty bay NR 
levels is shown with the Delta*D payload configuration NR curve. The two curves 
seem to follow the same NR trend with frequency. The payload Introduction causes 
the empty bay NR levels to decrease, which means, of course, that more noise 
transmission has occurred and the ’'. vioad acoustic environment has increased 
noise levels over the empty bay levels. 

Figure 5*25 shows the differences In NR between the two curves from Figure 5*24 
more graphically. The difference between the empty bay NR and the payload pres~ 
ent NR is equivalent to the change in the empty bay noise level when the payload 
is placed In the empty bay. The 0 dB level is the empty bay space-averaged 
noise level In Figure 5*25. As noted in this figure, the empty bay noise in the 
lower frequency bands (<40 Hz) seems to be affected more by the addition of the 
payload. The largest change Is in the 25 and 31.5 Hz one-third octave bands. 

A possible reason for this condition Is that the payload addition causes the 
empty bay circumferential acoustic modes In the 40 Hz band to be reduced in 
frequency where they now fall into the 25 and 31.5 Hz bands. This can be seen 
by comparing Tables 5*1 1 and 5-13. For the empty bay case, no acoustic modes 
exist in the 31.5 Hz band, but with the addition of a payload configuration, 
several acoustic modes are created in this one-third octave band. These acous- 
tic modes are then excited by structural modes, resulting In transmission of 
more external noise into the bay cavity than with the empty bay situation. 
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Noise Reduction, dB 



Figure 5-23. Predicted Noise Reduction for Payload Configuration Dclta-0 
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Figure ^-25. Predicted Change in 


Entpty Bay Noise Levels with Addition 


of Payload Configuration Delta-D 


5.6.2 Cow>p*ris on of M «<tur«d «nd Predicted Payload Effects on Empty Bay Nols* 
Ltviils 

From th« one*quartor scale orblter model tests, changes In the empty payload noise 
levels due to the Introduction of the payload configuration 0elta*0 arc shown In 
Figure 5.22. Also on the same figure are the predicted values due to the payload 
effects. Only qualitative results should be gained from these comparisons, as 
explained earlier In Section 5.^. 

The predicted changes seem to have about the same trends as do the measured data 
for most of the subvolumes surrounding each of the payload components. Even the 
magnitude of the changes In noise level Is fairly similar for both the predicted 
and test cases with the 30-, 60- and 80-percent diameter cylinders. The most 
significant trend difference lies In the 20 Hz band with each subvolume. Although 
the model and the full scale OV-IOI are not acoustically the same, the trend for 
the analytical model should probably be a little c’ *ser to the test model results 
at 20 Hz. In most subvolumes, the 20 Hz band for the model results Is greatly 
affected by the payload Introduction. It Is likely that the normal acoustic 
modes of the empty bay were changed by the payload addition In such a way as to 
Increase the noise reduction In the 20 Hz band. The measured changes above the 
large diameter cylinder of 95 percent show the most disagreement with the pre- 
dicted results, as also noted In Section 5.^.1. Here, the measured changes are 
consistently higher above the 31.5 Hz band. The noise levels above the 95% 
cylinder, near the doors, are about 5 dB higher than the empty bay levels. 

5 . 6.3 Spatial Variability of the Payload Noise Effects 

As with the modal nature of the empty bay acoustic response, shown In Figure 
5-2b, the spatial variability Is characteristic of the noise spectra for the 
subvolumes around the Delta-0 payload components. The prediction method Is also 
applicable for the payload present noise reduction computation, as demonstrated 
with the empty bay test case. The addition of the payload volume changes the 
acoustic normal modes of the empty bay. This In turn either couples or decouples 
their response with the structural modes, thereby changing the noise transmis- 
sion characteristics relative to the empty bay levels. 
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Figure 5"26. Spatial Variation of Empty Bay Interior 
Sound Pressure Level Measurements [3^0 
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6.0 CONCLUSIONS 


Results of the comparisons between the test cases and the predictions of the 
analytical models are summarized In this section to give an Indication of the 
prediction method's applicability and accuracy for the estimation of a space 
vehicle's Interior noise level. 

The noise reduction (NR) predictions fw ..he empty payload bay differ within ±5 dB 
from the measured NR levels for 87% of the one*thlrd octave bands In the 10 Hz to 
250 Hz range. About 60% of the predicted NRs are within t3 dB of the measi'red 
levels. For most frequencies, the analytic calculations give over conservative 
NRs (lower NRs), as shown by Figures 5*17 and 5*18. 

The greatest difference in the predicted and measured results is in the 16 and 
20 Hz bands. Modelling of the payload bay door normal modes Is believed to be 
in error for these frequency bands when compared to the finite element calcula* 
tions. The questionable accuracy of the structural modes in the 100 and 125 Hz 
bands may also be responsible for more predicted noise transmission than measured. 

Acoustic normal modes for the cylindrical model of the payload bay seem to agree 
fairly well with the modes calculated by a more representative payload bay shape 
of the rectangular parallelepiped with a curved upper surface to simulate the 
payload bay doors. The greatest disagreement in the model's modal characterls* 
tics occurs In the 25 Hz to 63 Hz bands. This may partially account for the 
discrepancy in the predictions at AO Hz and 50 Hz one-third octave bands. The 
acoustic modes appear to be more closely modeled, with the exception possibly at 
AO Hz and 50 Hz bands, than the door structural modes. This may be the primary 
reason for the discrepancies In the predictions In several of the one-third 
octave band mentioned above. 

The modal nature of the low frequency response in the payload bay can be seen in 
the spatial variability characteristic of the measured noise levels. This spa- 
tial variability of the measured data for both the OV-IOI acoustic tests and the 
mouel payload effects test can be seen in the experimental results. This spatial 
variability of the noise spectra can also be predicted by the programmed analyti- 
cal model as shown in Figure 5-20. The ability to calculate the noise reduction 
at any given point in the payload acoustic environment may be important in 
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certain cases where the localized noise ievel may greatly exceed the space- 
averaged vaiue. In terms of noise reduction, this means that the noise reduction 
may be lower than the average noise reduction for the space surrounding the 
payload. 

The modal characteristics of spatial variability in the payload bay noise spectra 
at low frequencies makes the modal analysis method well suited to determine the 
noise reduction. This noise reduction is primarily dependent on individual 
structural and interior acoustic modal responses. 

The simple modeling of the Oelta-0 payload configuration by a concentric cylinder 
with an equivalent volume gives reasonable predictions around most of the payload 
components. Similar magnitudes and trends for the payload effects are seen from 
the measured model data and the full scale predicted data, although the predicted 
payload NR for the 20 Hz band in evtry case is too high. This discrepancy could 
be attributed either to the math model or to the one-quarter scale model not being 
completely similar acoustically to the full scale OV-IOI. The worst payload sub- 
volume prediction is above the $ 5 % diameter cylinder component of the payload 
configuration. Here, the trend in the predicted changes In noise level between 
the empty bay and with the paylo<?d introduction are lower. 

The noise reduction prediction model is shown to give reasonable results for most 
frequencies and payload subvolumes for the two test cases given in the study. The 
main discrepancies could probably be eliminated by better modeling of the struc- 
tural normal modes and, of lesser importance, by a more detailed representation of 
the payload acoustic cavity to obtain more accurate acoustic normal modes. 
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7.0 RECOMMENDATIONS 


A modal analysis approach has bean improved to predict the noise reduction in a 
space vehicle with payloads. Oenerally, reasonable results were obtained for 
most of the one-'third octave bands of 10 to 250 Hz. Several additional improve- 
ments could be made in the area of modeling the structure and acoustic enclosure 
to obtain more accurate normal modes. Also the computer programs could be 
improved for more efficiency and flexibility. The following recommendations 
will be Investigated for their feasibility and incorporation into the work on 
NASA contract number NAS8-33379 to further improve techniques for predicting the 
acoustic environment of space vehicle payloads. 

The principle of component mode synthesis could be used with finite element tech- 
niques for determining the structure I /acoustic system natural modes. The finite 
element method could be used to define the structural modal response. This 
method is also the most accurate analytical method available. These normal mode 
properties could then be incorporated into the present computer program, or pos- 
sibly a finite element program could be added as a subroutine to the main program 
to directly compute the structural modes. The Donnel l-Mushtari equations for 
determining the structural normal modes for the present model could also be 
modified to obtain another shell theory that may yield more representative normal 
modes of the structure vialls. 

The predicted acoustic resonances with the present model seem to be reasonable 
for the payload bay with and without a payload configuration. An improved model 
of the payload enclosure may be found in the perturbation technique applied to a 
rectangular parallelepiped where individual wall surfaces may be deformed to 
simulate the cavity shape. Finite element methods could also be employed to 
determine the mode shapes and frequencies of the payload enclosure, especially 
for irregular volumes. The subvolumes surrounding individual payload components 
may be used to determine the natural modes for their respective cavities. Then 
these modes could be coupled to adjacent subvolume modes until an equivalent 
normal mode determination for the entire cavity was obtained. This more rigor- 
ous treatment of the payload cavity might be necessary for complicated payload 
configurations and for large diameter payload components. 
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The major computational Improvement for the computer program would be to combine 
the three versions of the present program Into one program with the logic to apply 
the proper version to the noise reduction calculations. Also, plotting routines 
that would present the noise reduction as a function of frequency could be incor- 
porated. Also, by applying the calculated noise reduction to the measured or 
predicted external noise spectrum, a plot of the internal noise spectrum for the 
payload enclosure could be generated. 

The statistical energy method could be used to expand the frequency range for the 
noise reduction prediction program. This method would be more efficient to use 
in the higher frequency region than the modal analysis method because the higher 
modal density of the responses are more uniform over a one-third octave band and 
the calculations are more simplified. 
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APPENDIX A 


COMPUTER PROGRAM DESCRIPTION 


A. 1 PROGRAM STRUCTURE 

Th« basic computational structure Is that shown In flowchart form In Figures A-l 
through Acoustic and structural modal quantities are either computed or 
read, then a summation Is performed of the various modal combinations contributing 
to Interior noise. Details of the summation vary among the three programs, a 
also shown In Figures A-l throuoh 

Flow through each of the three programs Is cr/ttrolled by a main program. The 
main programs perform the following operations: 

a All Input (except for stored flK^s of modal properties) Is to the 
main progarm. 

a All generally used parameters (nondimenslonal shell quantities, 
conversion factors, etc) are computed. 

a Subroutines are called that calculate (or read previously computed 
values of) acoustic and structural modal quantities. 

a The outermost loop(s) of the summation over m, n, s, p, q Is con- 
trolled by the main program. Referring to Equation A-1, the mn 
summation loop operates through the main program. In the two 
bandwidth programs, ACOBAN and STRBAN, the s and summations, 
respectively, are controlled by the main program ;s well. 

The bulk of the calculations. Including convergence testing and Identifying the 
next mode to be considered, are performed in subroutines. Significant differ- 
ences in summation logic among the three programs are handled by the main programs 
and specialized subroutines. This structure permits ail three main programs to 
use the same subroutines as much as possible. Mpjor subroutines, that is those 
that calculate the vibroacoustlc response functions, differ among programs only 
with regard to whether the pure tone or bandwidth expression is of interest. 
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A.2 MAIN PROGRAM AND SUOROUTINC DESCRIPTIONS 


Figures A-l through A*3 show subrout I n«*ca I ling holrarchy for the three programs. 
Each program calls the subroutines to the right of Its block. The function of 
each program Is listed below. The three main programs are described first, fol- 
lowed by subroutines that differ among programs. 

User Instructions are presented In Section A.3, and listings are presented In 
Section A. 4. In addition to the routines described below, there Is a block data 
subroutine. 

PURTON - This Is the basic main program, which calculates the noise reduc- 
tion for a single frequency. It reads Input data, calls routines that 
obtain frequency-sorted structural and aco'^stlc modes, then computes 
noise reduction as described In Section 4.1. The final results are pre- 
sented as the level of the Interior noise relative to exterior. 

ACOBAN - This main program computes band-average noise reduction for the 
case of a resonant Interior acoustic field, as described In Section 4.2.1. 

STRBAN - This main program computes band-average noise reduction for the 
case of resonant structural transmission, as described In Section 4.2.2. 

AMODES - Computes the acoustic resonant frequencies. It first obtains 

the needed roots k of Equation 3 from Reference I, then computes reso- 

ns 

nant frequencies from Equation 6 of Reference I. The frequencies are 
sorted in numerical order. Frequencies and nodal Indices are then saved 
(in double precision) on a file on logical unit I, and printed on the main 
output file (unit 6). If specified by main program input, calculation 
is skipped and previously computed modes are read from unit I. 

BESSEL - Controls computation of Bessel and Neumann functions, following 
the methods described in Section 4.3.1. 

BLJDEF - Computes Bessel functions from a power series. 

BLYDEF - Computes Neumann functions from a power series. 

CAPGAM - Computes the square of the quantity as defined in Table A-1. 
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COPYC * Copies structural modal quantities Into temporary working 
arrays. 

CUBIC - Obtains the roots of a cubic algebraic equation. 

DOB - Computes the quantity 0^; used in the solution of Equation 3 in 
Reference i, by false position. 

FNONST - Searches £ sorted list of modal frequencies for the next mode 
to be considered. See comments in the program listing for specific 
appi i cat ion. 

FNDNXT - Similar to FNONST. See comments in the program listing. 

FRSFNO - Searches a sorted list of modal frequencies for the one closest 
to a frequency of interest. Essentially selects the first term in the 
summation. 

GAMA - Computes the quantity Y^p as defined in Table A-1. 

HSQMNB - Computes the acoustic response function integrated over a 

bandwidth, for use with main program ACOBAN. 

HSdMNS - Computes the pure tone acoustic response function 

MCMAHN - Obtains roots of Equation 3 in Reference 1 using McMahon's 
asymptotic series. 

MNCALB - Maintains the cumulative summation over mn. Used by ACOBAN. 

MNCALC “ Controls the summation over mn. Maintains the cumulative sum- 
mation, tests for convergence, an'' identifies the next term. Used by 
PURTON. 

MNSUM - Similar to MNCALC, used by STRBAN. 

NXTMN - Similar to FNONST and FNDNXT. See comments in program listing. 

PCALB - Computes the joint acceptance times the bandwidth structural 
response function, for use with main program STRBAN. 


A-6 


PCALCC - Controls th« summation over pq. Maintains the cumulative 
summation, tests for convergence, and identifies the next term. 

PQJ - Computes the jet noise joint acceptance function. Equation $8 in 
Reference 1. 

PSQS * Computes power series needed for Bessel and Neumann function 
asymptotic series. 

QSQ - Computes defined by Equation 2 in Reference 1. 

RECUR - Applies the recursion relations for Bessel functions, Equation 
4-8. 

RI GFAL - Applies the method of false position in the solution of Equation 
3 in Reference i, as described in Section 4.3.2. 

ROOT - Controls the solution for roots of Equation 3 in Reference i, as 
described in Section 4.3.2. 

SCALC - Performs and controls the summation over s of the acoustic ampli- 
fication functions. 

SCALCB - Used in ACOBAN to obtain the acoustic amplification function. 

SMODSC - Computes the structural modal frequencies for an orthotropic 
circular shell segment. After computing and sorting the modes, they are 
written on the output file (unit 6) and saved (in double precision) on 
logical unit 2. 

SORT - Sorts a floating point array into numerical order, and sorts a 
parallel integer array into the same order. 

STAMFB - Computes the structural amplification function Integrated 
over a band. Used by STRBAN. 

STAMFC - Computes the pure tone struc:!jral amplification times the 
Joint acceptance (Equation 58 in Reference 1) times . 
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A. 2. I Algorithms 

Th« acoustic response of the cavity, Equation i in Reference i, inciudes Bessei 
functions of the first and second kind. All arguments are real and non**negative. 
Also, it is necessary to solve for the roots of Equation 3 in Reference i; 
this is a transcendenta’ equation involving Bessel functions and their first 
derivatives. The Bessei function calculations are described in subsections 
A.2.I.I and A. 2. 1.2. Subsection A. 2. 1.3 describes the procedures used to test 
for convergence in the various summations. 


A.2.I.I Bessei Functions 

For arguments x < 10, Bessei functions are computed from the following series 
expansions: 
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Values of the psi function, ij)(k) are stored for O^k^bO. 
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For arguments x > 10, the functions are computed from asymptotic series and 
recursion relations. For order n < 8, the following series are used: 


where 


Jn(«) 

- [P„(x) 

n 

COS 

(arg) + 


sin (arg)] , 

Y„(=<) 

■ /2/irx [Pn(x) 

sin 

(arg) + 


cos (arg)] , 



dp 


2m- 1 



f>„(x) 

• 1 ^ 

z — 

iJ-L 

^ TT 

[Iln2 ■ 

■ (2s+l)2] , 



m«I (2m) 

!(8x) 

s-O 







2m 



dn(*) 

dD 

- Z 

m«0 

( 

(2m+l)! 

-0' TT 

(I.n2 

- (2s+l)2] , 

arg 

■ X - 

It (n/2 + 

1/4) 

• 




A-fi 


(3) 

(4) 


For X > 10 and n > 8, tha functions ara obtainad from tha racursion 


■ 2n/x B|^(x) - B^.j(x) , (5) 

whera B^ ■ or Y^. Tha racurstons are begun with values of B^ and computed 
from tha asymptotic series, Equations 3 and k. 

Derivatives of the Bessel functions are obtained from the relation 

B^(x) » -B„^,(x) 4. n/x B^(x) . (6) 


Equations I through 6 (or equivalent alternate expressions) may be found In 
Chapter 9 of Reference 35 and Section 8. 4 of Reference 36. 


A. 2. 1.2 Roots of Equation 3 In Reference I 
The roots k are required which satisfy 
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For large values of s, McMahon [37] developed the first four terms of an asympto- 
tic series for the roots: 
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(9) 


This txpantlon bacomas lata accurata at small valuas of s. Tha proeadura usad 
In tha program Is to computa tha first roots by applying tha mathod of fsisa 
position to Equation 8. Roots computad from tha sarias (9) ara comparad 
with thosa from falsa position. Aftar both mathods agraa, tha sarias matitod is 
usad for highar valuas of s. 

A. 2.1.3 Converganca Tasts 

for 9 sequence of terms f | • convergence may be defined as 

I - e < < I 4* e » (10) 

^1 

This definition of convergence (as opposed to J^i+I " ^il e) ensures that the 
sequence will converge to an accuracy In terms of a desired number of significant 
figures. For the Bessel function calculations, c ■ 0,5x10"®, which provides six 
significant figures. For the main calculation of noise reduction, e • 0.0005, 
which gives three significant figures. This provides a tolerance of about 0.002 
dB, which is negligible. 

Although the convergence criterion for the noise reduction calculation is quite 
conservative, the terms in the summation are not necessarily monotonical ly 
decreasing. An anomolously small term could give a false indication of converg- 
ence. This is somewhat unlikely, as it would have to occur simultaneously in 
both summation directions. Identically zero (and close to zero) terms are also 
appropriately handled, as discussed earlier. To check against false convergence, 
however, an option was incorporated into programs PURTON and ACOBAN wherein con- 
vergence would occur only when Equation 10 was satisfied a consecutive number 
of times. The number of times was specified as input data. Identical results 
were obtained with this convergence test as were found with the single test. 
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A. 3 USER INSTRUCTIONS 
A. 3. I Hardwart 

The programs are written In Fortran IV, and they are operational on the MSFC IBM 
360 computer. The programs exist on punched cards and magnetic cape. Virtual 
core of SOOK words Is required. The following I/O devices are required* 

1. A read file, 80*character records, on logical unit 5f> for general 
data Input. 

2. A write file, 80 or more character records, on logical unit 6, for 
general output. 

3. A read/write file, 80**character records, on logical unit I, for 
saving calculated acoustic modal quantities. 

A. A read/write file, 80*>character records, on logical unit 2, for 
saving calculated structural modal quantities. 

A. 3. 2 Input Data Files 

The following input data cards are read from unit 5: 

Card 

Number Input Description 

1 Title card. Format A80. 

2 Bandwidth desired (ACOBAN and STRBAN only). 

Enter I. for octave band 

3. for one'third octave band, etc. 

Format FIO.O (No input card for PURTON) . 

3 Mode parameter. I ■ calculate new acoustic and structural 

modes. 

2 >■ calculate new acoustic modes only. 

3 ■ calculate new structural modes only. 

k • read previously calculated acoustic 
and structural modes from tape. 

Format 1 1 . 
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Card 

Numbar Input Pater ipt ton 

4 Cylindar langth L, sagmant langth I, sagmant location z^, 
innar radius outar radius b, spaad of sound. Oi mans ions 
in faat, spaad in faet/sacond. Format 6FI0.0. 

5 Longitudinal Young's modulus (lb/ft^)t circumfarantial 
Young's modulus (Ib/ft^). Poisson's ratio v, thicknass 
of stressad skin (ft), skin filler thickn..ss (ft), area 
density of skin (slugs/fc^). Format 6FI0.0. 

6 Frame Young's modulus Ep (Ib/ft^), frame crc 3 »*sectional 
area Ap (ft^), frame moment of inertia Ip (ft**), frame 
spacing (ft), displacement between skin and frame cen- 
troids (ft), circumferential extent of panel a (degrees). 
Format 6FI0.0. 

7 Radius locations of four points at which interior noise 
is desired, feet. Format 4FI0.0. 

8 Axial locations of the four interior points, feet. For- 
mat 4FI0.0. 

b 

9 Coefficients a and b for ■ af ; coefficients a and b 
for n_ ■ af^. Formar 4F15.0. 

a 

10 Limits for modal indices n, s, m, p, q. (Lower limit 
followed by upper for each.) .‘ormat I0I5> 

11 Relaxation factor to be applied to circumferential bend- 
ing stiffness. Defined in Section 5.2.3. Format FIO.O. 

12. Pressure correlation decay factors for jet noise; k /k, a , 

ky/k, a^. These factors are discussed in Section 5.1.4. 

(For ACOBAN and STRBAN only.) 

13 Bandwidth center frequency (Hz). Format FIO. 

14 Next frequency 

N Enter -I. to stop program. 
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C«rd 

Wm wbT Input Otticrlptlon 

(For PUKTON only.) 

13 Froqupncy IncrciTMint and upppr valup of fr«qu«ncy 

limit (Hz). Fc. nat 2ft0.0. 

|l| Lowar valua of banpwidth fr^quancy (Hz). Format FIO.O. 

15 Sama at 13 for additional cardi. 

16 Sama at 14 for additional cards. 

t 

N Entar >1. to stop proqram. 

Logical units 1 and 2 may contain only ft las craatad by prior calculations from 
this program. For AC06AN and STRBAN varsions, tha structural and acoustic param* 
stars on cards 4. 5» 6, 10, and II must ba tha sama as whan tha fllas on units I 
and 2 wars craatad. For PURTON, cards 3, 4, 5, 9. and 10 must ba tha sama. Tha 
program will than computa noise reduction and print tha results at a level rala* 
tiva to tha exterior noise in dacibals. Values for the volume average Interior 
noise reduction, plus approximate levels at the four specified interior points, 
are printed. 

If structural or acoustic modes are computed, these are printed. Also, error 
messages (either system messages or those generated by the program) are printed 
with the output listing. 

A.4 PROGRAM SOURCE LISTING WITH A TYPICAL RUN CASE 

The following Is the source listing of the program and all subroutines. Also, a 
sample run is included. 


ooon I nro r. nio o o no rio o o or> 4*10 oo o 


JUN 74 I 


0S/36J FORTRAN rt 


w:h 


fm 


tuP I "u< tLinewNi *30 »o i4C*"v.v. 

SOURCE •FBC3ICtN0LlST»N00Ct:K,CCADt«4PtNC^C IT tl3tN0XRFF 


rnw 






••• MAIN RRCGRAW •»» 

this program calculates the PRESSLRS SGUAReO RATIC BEThESN 
THf INTER lOR AND EXTERIOR OF THE SPACE SHUTTLE PAYLOAC EAY. 

th« program employs modal analysis techniques* this is pain 

PROGRAM ♦ PUR TON*. WHICH COMPUTES NCISE RECUCTICN AT A 
SINGLE FPCOUeNCY. Th€ COMPUTATICN CCCURS OYEk FIVE MCCAL 

’IN DICES .~~THREE"ACXr CS TT C ' A ND~niiC~5TR: uC T UR A L* — r H E ' PRCGPaM 

SUMS OVER ALL MODES UNTIL THF CCNVERGEKCe CRITERIA ARE 
SATISFIED. 


AUTHCRSt KEKNETTI JJ-fLCTKIN 
PATRICK K. GLENN 


HYtlS LR8LPATCKIE5 
FEBRUARY 1977 


IMPLICIT RSAL«6 IA-O.F-H.C-ZI 


DIMENSION TITLE! ID) 

COMMON /ACCEPT/ALFA 
COMMON /BFSOR/02 

COMMON /CONST/PI " ' 

COMMON /EIGEN/3ETA.S2TA3 .BETAS 


COMMON /FPBg/wSQ 
CCMMON /HALT/QUIT 
COMMON /LfiAO/hFTERM.BBB 

COMMON 7t£TTRS/^A '.B .C .CK.CRAT.DRAT " 

COMMON /MORI;/ WOLCPI.PICcR 


COMMON /RADII/RIN.ROUT 

COMMON /OTHER /ROTHRr4l 7rOTHR:i4r.CYLNTH ~ " 

COMMON /STOAMP/STDAMA.STOAMB 

COMMON 7ACDAMP/ACAMA-.A0RHB — - 

COMMON /STOP/VCRIT.KSV 


1 HO 9/ 1 v;; in . IV 

COMMON /TERMS/RATI0.ScGLTH.PICYL.Zv.PICYL2.PILSQ.PIS£G 

COMMON /VARSi/CSQ.PTOLLZ ‘ ‘ " 

COMMON /VR8LS/PI0L4.RIN2.ACDACC 

COMMON /ACU5TK/ACHODSI30OO1 .MNSrSOOrr.NU'MAC * 

COMMON /SQLNS/SNKl4:?i .KNSf 4.::)) fNUMK 

TgWN0i r 7E PRCUR7 T VXR". ~ AXCPP . T VVR AVCD F 

DIMENSION PANSR(<*) 

INPUT VARIABLES* “ ' Pf -PQ9B QU A UT Y 


PUR OC 5 or 



RiciiiiriirTncr 

(»SAC<5f^',5l IwN 

■4T5!JlE3?Witnil 

2ta P'JRMATllCAc; 

WRlT»lft.2*:2l tlTL! 

20‘;Z FORMAT! T ITU t • » // • i:x«l.lA8 tl^l / II 


“PTjmzrnr 

PUR23S9C 
PUP :C 6 AC 
PUR :C 650 
PUR:C66C 
“TOinSTTT 
pur:-.68C 

pur: 37 c: 


TOffT37rJaiJr?CMTH7Sfi50J^ 

RtACt 5. 10 >l IS5i#E STM.POI SSR fSHLTMKjF I LTHK ,RMCMi_ 
l6Ft FA,F!,FS#FS0SPL.ALPA 
IJri FORMATUFD.TI 

RHACi5ti::2MROTHR( JTR|#JTR«i.4» “ -- — - 

BSACCSf lj:3»CZ0TMAi jTR) ,JTR»!t4l 

•vjir^Tn'4IT?^''7F 

WRITS(6t2tC‘Cl CVLwTH,S 6GLTM#2;.RIN»RCUT ,SHLThK,FlLThK,BhCH, 

I rsZt65Th,POlS$R,SPSNO ““ 

FORMAT! ix»» input DATA: »f//f 
I U. 'LSNGTH jF CVLlNDgR • ST48, FlC. 5 iT59 . 'FE1T‘ ,/,‘ 


IX, 


« length of 

* SicGMFNt 


Scgmfn: 

trryrffSRTf 


•,T*»8, Fi:.3,T59,'F26T*,/. 

rSDH T:KD" CF ' OtIKDc R 'T"'n T¥a 


THTT, 


TWi 


"PUIT7371C 

PUR3372? 

TwnrrsT 

Pi A 0374: 
PUR 1 '' 75-7 
PURCC76C 
PURaC777 
PUR3:78 C 
TURvrrsr 


•FsST*,/, 
IX, 'RADIUS OF 
IX,*PA0ILS OF 
IX, 'SHELL 
ix,'Sh«:ll 


CVLlNOtR *. »,T48, Fi:.5,T59,«F5ET',/, ” 
CVLIN05H ■ ',T43, FI J.S , T59 , ' FS6T ' ,/ , 
structural ThICKKcSS * ',T48, FI 5.5, T59,*F6cT', 7, 
FILLER THICKAsSS ■ ' ,T48 ,F IC.5 ,T59 , ' FfifiT ' ,/ , 


If4NER 

outer 


A 

5 

6 
7 

■" - f “ iirr* sT7?tcnyE^rTT‘» 

Ain, 'LONCITUUI '4AL YOUNGS MCOuLLS • ' ,T4o ,T59,' LES/FT*»2' ,/ 

AlX,'CiRCUMFfRENTlAL YOUNGS MCOULUS ■ • ,T48 ,0:3V5 ,T59 , ' LBS/FT**2' 
3 IX,17 mPGISS0N'S ratio • ,T43, FIC'.S,/, 

C iX, 'SPEED OF SOUND ■ ',T48, Fi:.5,T59,'F*r;T/SECCNC' I 

«RIT£!6,2w.3flFA,FI,FSOSPL,FS,eF 

*2 : : 5 • FORjairix 7^ Aar“ARii~ir^Tr4 s ,dy:^ 5 iTSTi-^PrsT «*2 • , 7 , 

1 IX, 'FRAME moment OF INERTIA • ' ,T46 ,Cl C.5 , T59 , ' F6ST**2' ,/ , 

2 IX, 'FRAMS-SKIN centroid DI ST ■ ' ,T43, 010.3 ,T59 , 'FF.eT',/, 

2 IX,'FRAM1 SPACING • ' ,T48,015. 5 ,T59 , 'FSt T • ,/ , 

A IX, 'FRAME YOlNOS MODULUS » ' ,T43,D10.5 , r59T‘La8/FT*»2* ) ' 

-*>C6 Fi)RMAT!/,lX,'AOJUST CIRCUMFERENTIAL BSNCING STIFFNESS BY ', 


TTSi^tirmr 

READ! 5,3019 }STDAMA,ST0AMB,A0APA, AC AMB,BBB 
SOI - FORMATiAFii. :,Fi:.:i 

RGAC!5,1532I NST,NEnO ,I ST ,I SEND , PST ,MEND , I PST , I PSNO, I CST, UfNC 
10. :2 FORMAT! 151 5 1 

RtA0!5,i:53IRELAX 

— WTTl! 1 X 

REAC! 5, i;:3 l TVXK,AXCDF,TVYR,AYC0F 
AlFA-AlFA*. : i7^5329251994320C 
69 » RSAC!5,i0l3) UELTAF ,FPC'3L 
lFIObLTAr.LT. 3. I GO TO 9CC 


NRTReDiT.T 

RFAC!5, 15CU rtUMl5GA 
IS.'l FDRMAT!FIC.3) 

CONTINU® 

FRg01« .IOMEGA 
WOM«GA«wOMSGA*2.0 1*«P I 


PUR3C8CC 
PURCSBU 
PUR3C82C 
PUR:C 83 C 
PUR9C843 
puKKZirr 

, PUR 30860 
,/,PUR:?87C 
PURC368C 
PURCC89: 
PURCC 90C 
PUR 0 : 91 C‘ 
PURC-392: 
puhc:s3C 

PURCC94C 

PURC095C 

PUR:096'“ 

^PURTCTTr 

PURC0980 

PURCC957 

PU»310CC 

puRcici: 

PUR’ 1 : 2 ; 
— ouRirics: 

pur:u"5? 


PUR5UA' 


PUROIGSC 

PUR3i:9C 


PUR5!UC 


r%n 


OiFINf MrSCm'ANSDUrCCNSTAKTS' 


OfiNCM-HOUT 

aiCSUM*C«30 

OANTOT*C.DO 

KSV«0 

so'T;nnr)(i'r7^ 

SPUTOTI IDX)«}*00 
BCSMTt IDXUC.O: 

CHECK FOR THE HOLLGn 
IP lRIN«»;g»C*OOI GO TO 5 
8cTA«ACUT/R IM 


rVLINDER CASE 


a£T45«6feTA3*0ETA*65TA 

CSNOM-RIN 

mSO«HQHFGA*mUMEGA 

VCR lT«.999f!03 

gJIT*l,Ov-VCRIT 

"CSQ'iTP'STJDWSPWO 

PIOL2«PI*PI/( SEGLTMASEGLTH) 

e2«ROUT«*2 

9«P IOL2*B2 

SKIN I-C SHLTHK**3I/43.D3<>SHLTHK*( {FTLTHK^SHLTHKrA2.D;)*»2 
AS«FA*FSCSPL/(FA*SHLTHK*FS> 


PURCIIZC 
PUR. 1130 
PURCU4: 
PURG115C 
PURCU6C 
PUPGllTC 
FDROrilO 
pur;ii9C 
PUR3120: 
PURC121C 
PUR0222C 
pur:i23C 


PUR312A’; 

pur:i25C 

puRnzsc 

puRCiaTC 

PUR0128C 

PUR0129C 

p oRc n o r 

PUR3131C 
PUR0I32T 
PUP 31330 
PUR 0134* 
pur:i35c 


PIOL4*Pl*CVLNTH/4,OC 

RIi\2«ArM**2 * ' * 

HfTFRM*(( 2 .Dc*RUUT*CRATI/(PI*SCGLTH*RHCH) )**2 

PICYL-PI/CYLMTH ‘ ' 

PIC’LL2*PICVL*PICVL 

■PTCYCZsFTTrvnr: 

PISiC«PI/S5GLTH 

PTL SQ«I.n;/TPTS3G*rr#irO/SEGLTH) ) 

VQLUME-P l*CYLNTH*(B2-fiIN2) 

THE FOLLOWING AREXSED IN ROUTINE 
WOLC»( SSGLTHPWCMEGAJ/SPSNO 


"TTFiBlSDSPr-RS 

PNUF*l,CS-PCISSR*POISSR 
Cll«5S2»SHL THK/PNUF 
C22«(FSTM*SHLTHK>GF*FA/FS»/PNUF 
Oll-SKlM*eSZ/PNUF 

D22-I (SKl.Nl4-ShLTHK*PSPRS»*6STH*fcFP(Fl4>FA*KF*RF»/FS)/PNUF 

PUR 31370 
’ PURTllSv 
PUR31392 
PUR3140r 
puRnAi: 

C ?2" 0"22*R5t AX 

- PUR 0X420 

CRAT-C22/C11 

PURC1430 

CRAT-C22/0U 

PURtI44: 

C»RhOM*ROUT*ROUT/Cll 

PUR:143C 

C<»022/IC22*RUUT*R0LTJ 

PUR0t46C 

A*( U03-P0ISSRI/2.D'' 

PUR0147C 


PUR0149C 
PUR015T? 
PUPnSU 
PUR0152C 
PUR01S2 : 
■ PUR 21 540 
PUR>155? 
PUR*I56C 
PUR ns?: 
PUP 01 5 80 
OUR J1550 


PCJ 


• W O L CR I P W O tC/PI 

CBl»*SPSNO/(RULT*WUMeGAJ 

PICFR»1,00/C8W 


CALCULATS ACOUSTIC MODES 


pup:i61c 

PUR0162C 
PUR.; 162' 
PUR0164: 
PUR2165: 
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UU lU 

CALL AMOOES (MST,NCN0*1ST,I SEND t PST tMSNCtlUN* &90: ) PUR0167; 

— ^ -rniONTirrTiTKrTTrTi - . PURCieaa 

kiRITE EICSMVALUES PUR:169C 

i<Rmi6V2202l • - ' PURriTT’ 

2'5.'2 FLR UTilHi,T27, ‘FI *ihNVALU«: «CSLLTS • f// #3 4 • I NCIC «S • »tX , • tIGtNV ALU2SPUR ?171C 


u»l: 




KJUNT-3 

CO 23 I« I fNUMK 1 2 ’ ~ 

K-I + 2 

rtR!T2^r6,2333) (<NSC JJ . SNKrJT , J*T .Kl - - 

2?;3 FORMATdH # 24 I9»2X#CIC« A# IX) ) 


KUU.Nl*N 

IF(M0D(KUJNT,5*') EO#0) liRlTe(6.2C32l RIK.RCUT 

CONTINUE 

21 CONTINUE 

C CALCULATE STPUC'^URAL MODES 

CALL SMOOSC 4 IPST # I i>CNO # I QST# I CbNO »I CN) 

9927 CONTINUE 

C INSURE OPPOSITE DIRECTION SfcAPCH NEXT TIPc 

GRN0PP»UC7: "■ 

C FvnC ACOUSTIC MCDa CLOSEST TO INPLT FREOUENCT 
CALL FRSFNO{ACMODS»NUMAC»KI 
C SAVE INDEX LOCATION 

— .WDTTffK 

ISAVF« IAB54MNOIR J 

C 

C MAIN LOOP 

1* CALL SCALC (K,M,N#C5*’'ri 
CALL PCALCC <H,N#&9D7) 

CALT-T4NOTrTi'41-N-iTrrJT 

C FINAL RESULT 

RHOA • 0.3023801 

ANSWER»nCSO*RHOA*ROUT*WSU) **2/ ( 2*0- •VOL'iPE I ) *«R,NTOT 

/^OMrCA-WQHEDA/’.OO/PI * 

AN SX€R»13*D3«DL CGI :4 ANSWER) 


pur:i73: 
PVKT174C 
PURC175C 
■PURJITSv 
PUR 3177C 


ANSRSD«ANSW£R-20««0L0G1S4A0CCNT) 

ANSNR*ANSRED«-13.*OLOG10tOCLTAF) 

NRFRea«NKFRSU+( l./l?.**40AtJ S( ANSNR/l 3. ) )) 

VrRlTE(6,A999) " * PUR^2''2t 

A999 FORMAT! 1?X) PU^2ZJ2': 

J.imTrsr2r3'A) A.VSSEO'i'WCMEGA P UR TZt A T 

2...A FJPMAT(2X,<***VOL AVc A'^PLI F ICATI CN » SEl'J.A#* CaS FCR 'fF7.1# PUkr2j5. 

I' HERTZ •) PORDZCar 

kRITE(6i5-C2) ANSREO 

s::? FOKMATflX# »VOL AVE AMR W/TNTFRWA L PPE SS UK £ EFFECT * ♦,F6*2) 

factor«(cso»rhoa«rolt*wsq)**2/2.oc puR:2:?r 

DTrTr'TD’XSTrA RORDZC E C 

5? PANSR4 I0X)«Ij,0.')*DL0GI>;4FACTCR*SPGTCT( IDX)) PUR;2*9‘ 

XR ITE ! 6 » 5DC 3 ) ’ ' — ' ' " "" — PUR'j21‘'"’' 

sc;-) FORMAT! llX# 'RAOIUSIFT) •, ax, 'LNTM C CCRO I FT ) t ,gx , * PnT AMFUCOSIM PURCZll* 

DO SC TCXal,4 - PURC212C 

WRITE! 6,50C1) ROTH®! IDX) ,tjTHR! IDX) ,PANSMI OX) PURC213C 



a 

"T»‘ a P3R.44TT 12X; F7.rfT4X,F KTf ITXiHl PUF32IW 

6C CONTINUE PUR:215v •, 

lUN-5 PURT2I6C || 

nOM5GA«wOMCGA*OgLTAF •* 

IFirtUMEGA.GT.rfttJU GO TO 68C 

GO TO 7- : PUR 5217; (I 

L 90 Nmiff-- n ; * 5c ocirrwTPREOT JJ 

wRITSi 6, 5:551 NRSUM 

5'' 5 FJRMATIIX,* 1/3 OB NOISe RFOLCTICN WITH INTERNAL PRESSURE EFFECT • 


1SF6.2) 

GO TO £SC 
9.'*' CONTINUE 


pur:213c 

"STcr ^ 


P0P*2T9C 

C SRROR STOP 


PUR:22CC 

9c: STOP ftU 


PUR0P21C 

END 


PUR 02220 






■OTICNS - 

ijUNt' 


.lAiN >■:•■> T « '.i,LIo;;C\T»5t "Kt 

rry^rnf'jTrrarn'rTN.^iiCK ♦ l ca'cv^a f« . -nlcc i r » i 


' v«i«« v#****!^-* ■''I’sta 


T^AIN prcii'M •>*» 


■^'hIs PKj'JkAM iAl.CULA ti?S /ilt“ VR • j jUK? "»J.AT IC 

Th’ IWTrKin A.n :aT;RUK L' ViZ SPiC' SHt^TUc PaVLuAC c».ir 

JSlNi-r MOOAL ANALY: li. rhi i IS main PkcJnAP MCCBA.\'* 

CCMPUTSS N'JIS.: TPANSMI SSICN !NT;r° IC? ACLUST IC -• SS CNANCtS 

'IN A .il^iN Th- PfOGftA.y SUMS fW£R AU ACCUS^IC RESU- 

withi n T--»p STKCCTI'«Ac AC‘uS until 

iu 'JV?K(»S‘'iC •■; rs V'lu* 

ALTHLKS: K.^N-Tri J» PLCVkIN 

PA»’'»ItK X, uLlNN 

" wVti LAaCBii a»:is 

F-ie.VJAMY ;977 


■«Cu ,*C 


implicit -cAL^d ( A-3fF-H,L-Z) 
ciMH^iSiuN Tircfas) 

/ACCcPT/ALFA 

"r3H'M7STSwKVS'! '■ “ 

CU'l.-ICN /CJNjT/?I 

sc>i:'..'jfr7'=iSuu/ji*TA ,bf ta: ,5"TA5 

CUMwn!i /FIMAL/vir MJPP tv'^NTi.r ,ri !S3LPfO^S.MT(4) ,SpGTUT<-) 

Common /frv «/»»Su 
CCMMC f; /HAL7/-LIT 

c,.)M -iCM ' /L ;• A :■ A'F T : w »o r>B 

C /LlTTA b/A ,P ,C ,Ck,C«A Tfi.nAT 

OwON VMCFT-/ WOLCFI rPICcr 
COMMON 1AL/US.NUM 

CIM.'ICN /R^CTI/RIMt^nUT 

CO 'M ii> /nTri; p/» UTHP{ 4) >ZCT.iR( y> tC tLi^TH 

C JM Mu.'t / A C 0 A.M P / A OA M A , A C A VF 
COM-ilN /iTUP/yCRIT,<CV 
C CM MG.*! / T A 8 S / 1 Sa VF t M.NC I ^ i f 

C /T'.R,‘lS/KATin,srGLT(-,PICVL ,Z : »PIC Yl Z, FI LSC,.'» 3 c 3 

CC.MMCn /VARb./C Sit»'IoLl.Z 
-n'!«r^5r7v^LT/^Tcn:Tfv^NZ77CDArTu- 
C J*< ^L\ /ACUSTK/ ACM.DnS » J - J »y*. j( 6. V » 

C / S OL ■*. 5 / SN R f 4 *» I i t Rri f I 4 . ) t N L. ^ K 

CC'^MGin / uPR C >jR / T VXh t A <C DF i T VV^. » •*■. VCUF 


CON 

CC'^MGi'. 


? I.M--NS rUN PA *bK(4) 

% 

SXTSP.S'iL jDl-IP 

C AL L ■ 77? 5TTI 2 77 . 3 » " . • . SC ur P , : ) 

:;,F JT vArI -.UL'=S 


A 




acn^'AC 

1 Lu '. 4 S 


■ CC :'"45. 
iC3- '4c 
ACO:. 4 7 
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wRITC( ■.» . b i . _ 

F'jkma r t ^ VVt.'' I /5"tt iSln I u TH * i 

felJtlti'ii.' 

■ ;i 

«tRiTF.(-,.5.‘A:) ..... 

Fuf '^AVl iXt • '* I 

R’-AV4 i*'r: . •: ) 

"ToITATrlTf * »UOI: PAF/ '<S‘’’;R WH:^ C'Jcb; 1 FlR all MFifi vrcps.2 

:\.'.T'Sjfw ^LC.-Sf ' i 

FaK^lrp^A, ‘T FwR m^.a 5 *^002 St 4 fc.< ■<»' n:--* ^'C^'=s•^ 

FQRMATliX, • :-jT=- FHMUcMO *> 

rr-JTT'ATT 

WRIT': I -f lo: .4 

Tmr 

RiAU( . .5 ) lUN 

•■ FafNATmi 

FJF •UTI iX, • f nT; r >if:j*^ P AF A MS ^ ) 

i’TITTWnTSTI 
wRlTclbtAv-Z) TIT uL 

: FTRw~Amrti; 'JCB TiTL'=:' t // ti : a ti :^: . /// 5 

3‘^A0(5't :.* A »CVLfjTHtSI iiLTH-ALfRI'lt’CLT tSFSNO 

■R'i CTT i ITTITcSZ »rST Tt ^OrSTR t S IlTH.k ,F I LTH<< ,r\rtTi<t 
IcFi FA, -ItFSfFSi' SPi tALFAI 
“'TCF'ui 1 iT;n 

f' "^ACt 5 1 ' ' - 3 ) i i J' R ) ♦ J ri\*l » t i 

HTiTII r,T**3TTir.ThR ( JT= J , JTR *! , 4) 

: PQc -1AT1 ^Fi ) ..... 


iCuZ’n: 
ACG ''f ik2 

Acc..5:>*. 

ACU ’. £4 

Acc'.’f?: 

ACO J'L £7 « 
FACO--53'. 
ACC-C5J: 
A C* > ^ ' V 

Acc:^tir 
alc 

.KC'!'" c3v” 
iCu :• t^: 
«CQ .1 65. 
aCJ ■'■ fcc'. 


ACC 2 

£677 

ALC 


ACO' 

* 6 5C 

A Cl. . 

,.7M 

■acn ■ 

■•.'71 : 

ALC!" 

•'72,. 

arr' 

.73" 

ACfJ' 

.'.74.' 


he tiUii, - Si ft 5 
M^ T ^l ' X, '’I' t?a 7~^•7gTA; f'i' 
1X,'LFi'*oTh )F CVU'iL''t-rt 


Sift ST'I fF -I SSR ,SPSf.r 

a s -^ rrn 


'F7HTT,/, 

')r CVLIND.4 * 

" T X, ' ■? A b I L b uF iju xrF " rYrr^ ' TTTA"*' 
iXf'bH-:LL JT-urTUFAL tmic,<a.-SS 


V'P(f’*rb.iGTTTJ7pjAl. YG'Jl'iSS f'GDb'-bS = 


-b ,Tx i"". 7 mP J rs SU.‘i ' ^ < A I ! b ^-rrT37 

C iX , • IP .L bP Sub'll’ * FI A, £ f T: ' p<r -T/ j - N- ) 

^.RlfTr'i/I'^JfAf'rTf’^G^SSL fFSf'^F ^ _ ... / 

j FUF. •’A’" i iA, ' =RA APIA * • t T4S ,3\ .• i t Tr t • : *-*. t/ t 

”* ix;’ FT *Tc*;^CMF'iT nF'"T''4rpTi a- » • ,t4o tSi t£ 9 , * t / , 
: Ixf 'FJMT-SMM CiMT-,.n:) riST s t T59 , 'p-pT* t/t 

" jP 'uCHu * ' fT^S'fll ■''as’f T3F f ’FP^rt» f r f 

I ;a, 'F-.AM r rjUiGS MOGbLUS ^ • ,T46f:i:.5 ,i5=^ , 'LaS/ = :.CT' > 

5 F ~ P 4AT T7~n.y f ^ACJ*bST~CTKCU'-'tPcP3NTl AL £:*’nN(*. STIF = N<-SS SY 

1 ii, U/ U) 

H T? - rFr'! 1TT3 r'AA . Tr? A M3 , A D A 7 A , A.; a V 3 f B 


KCUT ,'biLTHK, FILTH';, 


Atur:79-: 

SPSf.r 


ACU.W b'.» 

. — 


acu>''Cfa'i; 

F 1 to £ ,T5F f '! IPT' ,/ f 


4Lj' w£2'' 

IT.: ,T:9 , ’S'* :T* , / , 


aCC?F83; 

;yl! ;nc** •* ' » r-ti , 

PI .■:,T59f 

AU3 bb*** 
ftC0 >. C5 

.T-if ■-!''« 5, rs), 

;T • ,/ , 

aC'j .'36 

'.T4o ,- F:r.3,T£<5, 

TT « , , 

acc*:'’c7; 

*f'"+3, Fi^.5,Tj9,* 

pr:T' ,/, 

a ;'i i -13. 

■*.•3 fCl ,T37 


AC0*-o9' 

fTji , ' SLbbS/ ='J :r*^ -2 

• ,/» 

ACo: J9'. 

»,TA3, ni:.3 ,T3b , »'w 

«S/FrCT* ,/t 

acn,**9l: 

= », r‘3fC.i.:.5,T£9,' 

L 3S/=L'UT' ,/ 

ACUi 

, * » i , / f 



£fT:9, 'pfr =7/3 SCCNC' 

) 

ACJ: i'34 
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r^'rvATd'T^r . 

K = ^"( 5,l'C3|f''L<s» 

r 2 \:( «, 1 :*“ ) ’v>F , f ’■v>=» avc:f 


..A ) 

IT I NU’"> • j 

;*t. F .1 L - A T« . : n 4 ' ’Tf*- T* 3 


• _ r 


ALT 'yCL'TCN 


' ■■ — — - - --- - - 

..2 ’“( •^,i5:Urtr.v^:i 

ih (.ifN'd .L' * :c 
..avrra«vinv-rT4-2.::*pr ' 

;;.VNTr^i')‘.T: " " 

::.j -io nx»i,4 

•♦. ojSdd'jxMc.:: 

'TH -Cl's r-ZF th' FfTLIC'^ CYtr:':’=^ 

ir (-UN.32.*.CC) Cl 5 

j-TVsrrn-^/TTV '■ ■•' " 

■j 'diaxL M 3 

■ .iI''^'5*^’n’fT#8?TS<P=TA 

vcr tT*,'n«s50': 

- ; jT-ST.^a-TCT T ■" 

cs.;»spsm'1<'3f*;nc 

‘ ?ICL2«^T*Fr/f3^'rtYF-»Trc^|.7 - - 

a2*'^r:u'"*’'2 

b»FTrL?*37 ' 

I.'il »( S-iLTFK** 3I /43.-:C*'S»-LfhK>»( (F IL"FK*SH^hK |/2.C0M^? 

■ 3S=FA*FF'*5FrrrF'r*t«t~VK*PSJ ■ ■ 

Kr«FSCSPL-RS 

• Pr?l/F»l,'C'-PCTFFFtFrrFFF’ 

V.U*?3^-''S^-l.THv/F^l.F 

• rr*Fa/FS7/F<''L*F 

Ui l*r,Kt,';i *e<Z/PMF 

■'2Z7’»( TSKr*'“r*?Ft7KF^F«FSJ#FF'^K*FT« fT 1 »F F'FF T/Ft ) /®NUF ~ 
32.:*')22*^'’LA)i 

cnA-^^CFT/rn 

c* ^TFF’rrr ^Fct’/cir ' ' ~ 

—A* I UT:-^crrTF) /r."rc • * 

!^ = s':-L'■^/'■>L^■’‘- 

Fr’"LA=t»i^CYtx’F/A.;rr- 

kI%2 = '’’!'S'=*? 

— HFT“F''=( rz,^2x?»ri.T»c‘'a‘^r/tFT*S3ct TK^rvn^i 

PICYl=PI/CYLf Tr 


“AC'^lOA? 

:5NC ^tCZlZfZ 
Acr:ict: 
ACCCIC7C 
AC'*Qioe: 

•^C'^TISSC 

Accii :c 

-F= \’=0AACC:il IC 
Acr:i 1 2“' 
ACf::ii3c 
Acc':iiA-: 

• \cxzu*z 
Aro:iuc 
Acmii?: 
Aco:iisc 
ficrcii*;: 
ACCC 12 :': 
- AcrazTC 
4r2Ci22: 
Arr:i2-3C 
ACCC12<»C 

aco:i 2 'c 

ACCC126C 

* • " Acrcrz?: 
ACCC128: 
Acr;ci2‘;c 
iccciac: 
AFccm: 
Acccn^c 

- * • Arc3i33*: 

AC'^213AC 

AC^C135C 

ACC3136C 

AC3:i37C 

iccciasc 

ACrZlZFC 
AcrciACC 
- AC^7t AlC 

Ar''.Cl42 ' 
ACCC143C 
Acr.cu^: 
ftC<^Cl4 5'* 
^C2Zl^f:Z 
■ Accci'*?: 
AC":! ♦e: 
■ ir'r'ri^qc 
AC2:i5:* 
ArF3i5i: 
Af :ci5?“ 
ACC':i53C 
ACCCI 54 : 
ACCT153: 
ACCC136-' 
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■ «- - 


nxct^'^^^rrYtr^TCYt 

r iCViZ.-JICVl^’C 
?rs=c«or/"CL'n: — . 

f>: LSC»l.rC/(ei'’C*(2.C3/!^'CLT». n 

,LLuM“«?T'r^L^TH< I3r-’»TK2T 
L ’’H” FCLL'"aINu nE CS'O !N PCUTI^= P-'J 

• .xtr«rr'ciTF*i.rv-Trr;^'^i»n’:- - 

rt.AC3I»^rLC/PI 

cr-»»«rFSNT/rFm<vcven5r” 
nc'iF-i.’JC/cn* 

C C4LPJLJTE ifCtSTI': ►€!!«:« 

zv *^r 9*577 

wmLL AMCneS (KST,AeNu,IS'^,IS'Nr,f'^T,vENr, tf N.'-.'T'} 
li- ( ICN.3T,:>)GC TC 31 
J aRI"- 'TC'Nv'U'S 

ARr7EIA,?C32) - 

4:02 r J'5-UT(lHl,T27f*- !3*^\VALJF ' SU' * • .// .1* ( • I^ *' iCf' • ,4X 

• 

Du 33 
!^2 

.*RI"-“fC,.?CC3l (K»5(J) ,S^K( J> ,w»r ,:< ) 

FJ<?v4-nH 

- ■ -^xu^•T«K^u1VT♦r ” — 

iF ViFP' (6 .DCCE » 

33 

j I V. vj A T t N'J” 

u 

V. rALrULA’' STRLC’L'JAL Mcrss 

" CALL' r*n?rc ■CTPST,TP-^C,TC3T,TC"^T,T^:^•^ 

crPcsrTT cTF*rcTicf. spafcf v’*vt ti*" 
u-\*"rPP»l.r7C 

«J^?»ws;:/p;.^FAc 

'•oC''=/:«:3*TAKrflr ~ 

..i ;c*vs3 

3 r L T A w * { V s w r- 13 ’^ t r? T t > ; : j 1 


■ 

ftccci'js: 
ACF'ii'jqf 
ACCC16CC 
Ac*?3ioi: 
Af rci6?c 
“ ■ - AC''3153C 

Afc:i6<»: 
ACf'tUfC 
Acc:it>6c 
Afr3l67c 
ACLCl^SC 
ACC317:: 
Af'^ClTi: 
Ar^3l7P3 
ACCD173'’ 
nr-'^iTAC 
•' I3-\VALU"';ACC''17*’: 
ACrC776C 
ACCC177C 
ACDC178'; 
ACCC179C 
AC*^CIPC3 
Afr'*i8l^ 
ACnCl32C 
Acc:i?ic 
ACCCia*.'! 
4fDC13*C 
Afr^isp'? 
AC-CHd: 
AC7C1373 
ACCCMS: 
ACrCUFf 
ArC':!*?:: 
AC'-:i9ic 
ACCC192: 
Acrxi'??'* 
ArD:i94c 
ACPCIS5C 


L 

c v^XN LTCF 

• ZJ TC Kif.FCvsC ■ * 

ir ( gc rr iz 
;f(k"xp.?c.C) K-cr»K 
ir (AC'‘^3S 3C TC 3C 

73 CC\*IA'tF 
w* ..i i'-(2,<'‘:c » 

9:c; FCFviTiTXt^’T '''ctrcTr v<3n«s tn rtci'ST-*":' r*-rr*i 

i j i\ * s 

- T«^ 1 

Uw J ’ 

a3 IT-sK-I 

IFrK3r^.L'»'.*<-''C^)C’“ HI 

uo 93 K*<’rF,K3C’ 


PAGt „ 
°f POOR QU/ltirv 


ACC:i96- 
ACPC197G 
ACC C 19?: 
ACCC199: 

Ac.::::c: 

ArpDTTi : 
AC''C23?: 
ACPT231" 
Ac::2:<.: 
Acn'!29?: 
ic::2 3FC 
ACC3237r 
ACCC2CHC 
4cd:2:9? 
acd:2ig: 
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7.T^*xryr-jsxv} ■ * * • — 

vAUL s;alc8 
c*LL PCiLcr cy.N, 
ij C4lL '’^TAL® (‘tNJ 

FT>AL 

A uM « :,c^’'» 6 r: 

•- • 

•» cc» I 

»IC.** (i.NTV-'R/aD, I 

A i " r» : r; -7 r. » ni .Ti •: ( a c cr iN j 

..A I 

4’7'J -3"'’A"^n TYT- • ’ “ •• • - 

n“MA-^(?y,»<>^ncL v/- Jv-iLyr ic«t!:n <. ',-ic.a,* r-t^ sr?. i, 

l* r",'": ^•A.^C•| 

nAT^~-(s,*?':c 2 ) a^TF®■^ 

jwC.; r Ut 'VCL Am* \«'P -»/[.'’-pNJL PC®S?u‘J* “rf-r^ « *,Ph.’» 

- FA CTrTi-f rrj.x * 'H C 'wl T ) * *7 n\ VV — ' - 

b} TOX*l,'» 

5 : ?■*';**« c-^ny). I c,c:*'*i':*i:(rA!:Tr?*fr:TrT( TTY n 

•*i\ *^“(6»5w«C ) 

5;Cv rC'vATflTY ,»-5 !C Tl TIFT J* , IX t »INTK TCC'' C ( =T ) * , ix , t pf, t WPL ») 
!' j ^ I *• X * I , 

-. A.r:xTt*T5,FrTTtrrTrm**Y»Tzr^^rTrjr7 iF\f?irnrxr ■ 

1 * ..•••.•T«irv,r 7 , 3 ,i •x,^e,?,i 5 x, » 



:c 

Gl Tn 77 ? ... 

<j } j Uw I itiJ“ 

■ 5 :: sTZP m 
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Accmi? 

Acr: 2 i 2 c 

Accczn: 

acc: 2 uc 

Acrrrif: 
Af CC 2 l*iC 
ACnC 2 t 7 C 
;rj: 2 igc 
^cc': 2 l?: 


Ar?: 2 ?cc 

Ar-: 23 K 

Ar-? 22 ?C 

4 Cri? 224 C 


ACC: 325 C 
\C'z:?2i: 
ACCC237C 
Ar'';22 2* 
acc: 2 ’o 2 

4 f .-jCSJCC 
' ACCt’Tir 
AC:':232? 
AC 2 C 23 '*'' 
AC0C23AC 
AC>'?235C 
ACT?, ’Id? 
ACCC277C 
ACCC238C 
AC'!123«;.7 

ac?:?a:c 
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OS/360 FCRTRAN H 


IPILER options - NANS* MAlNtOPT*; 2tLIN€CNT*56 «S1ZS*;CJ? Kt 

sooftcin recD revNot i s r # noosc k , l c ac t na p , noso it , i o . ncxb ip 


c c 

c c 

C «** MAIN PRCGRAN C 

c c 

cr ~ Tins' PRDGR'fN CACCULiTSS'THS PRESSURE SQUARPO RATIC dlTUCEN C 

C The INTERIOR AND EXTERIOR OP THE SPACE SHUTTLE PAYLOAC BAY C 

C USING MODAL ANALYSIS* THIS IS MAIN PRCGRAP STRBANt mHICH C 

C COMPUTES NOISE TRANSMISSION VIA STRUCTURAL RESCNANCSS IK A C 

C GIVEN BAND* THE PROGRAM SUMS CVCR ALL STRUCTURAL MOOES C 

C nITHIN the BANOt AND SUMS OVER ACOUSTIC MCCES UNTIL CCN- C 

c — veina;FreT'mtCHEivED7~ ■ " c 

c c 

C AUTHORS: KEKKETH J* PLCTKIK C 

C PATRICK K* GLENN C 

C NVLE LABCRAT DRIES C 

C PEBROARY 1977 C 

~C ■ c 

C«*»««*«««***«***«««*«*««««*«***««»»««A*«««****«****««**»**«»*«*»»»C 

C c 


IMPLICIT PEAL*8 IA-0#P-H,0-ZI 
OWENSICN TITL'-IIGI 
COMMON /ACCEPT/ALP A 

r3HTOfr7BC5W7BT 

COMMON /CONST/PI 

CCMMON 7ElGEN/8ETAfBETA3f BETAS 

COMMON /PlNAL/GRN0PPtGRNT0TtBIGSUM«BGSMT(41 tSPGTCTtA) 

COMMON /FREQ/WSQ 
CCMMON /HALT/gUIT 

‘ “COMMON- /tgAD/HFTERM-,BBa 

COMMON /LETTRS/AtBtCtCKtCRATfORAT 

COMMON /MORE/ MOLCPItPICER 

COMMON /NORMAL/OENOM 

COMMON /RAO II /R IN, ROUT 

COMMON /OTHcR/ROTHRUI ,Z0THR(4I ,CYLNTH 

CO MMON / TTB AM P / S TDAMAiSTOAMB " ' * 

CJMMUN /ACOAMP/AOAMA,AOAMB 
COMMON /STOP/ VCR IT 
CCMMON /TABS/I SAVE, MNOIR.K 

COMMON 7TcRMS/RATIO,SEGLTH,PICYL,ZO,PICYLZ,P:USg,PISEG 
COMMON /VARSg/CSQ,PIOLL2 
" 'TaHM0N~7VRBrE7PT0L4,RTN7, ICCACC 

COMMON /ACUSTK/ACMOOSCBGOC) ,PNS(80OC) ,NUMAC 
COHMCN /S0LNS/SNK|430),KNS(400) ,NUMK 

COMMON /STRUCT/STM0DS(12CC) ,MPUil2:*) ,STMC03 ,MPC2C4CC), 

I NUMST,NUM3 

COMMON /SPRCaR/TVXR,AXCOF,TVVR,AVCOP 

" DTHEN5 ION RANSRTAT VPO TACCTArr 

C 

C . 

EXTERNAL SDUMP 3RIGIN/U. PAGE IS 

CALL ERRSETC2'?7,0,C,2,S0UMP,CI OF POOR QUALiry 


STRG0019 
$TRCCw2u 
STRG0G3'' 
STRJdOAC 
STRXC5C 
STR0CC6C 
STROODTC 
STRCwSBC 
STR3G09C 
STR9D1GU 
STR30110 
STR3C12C 
STROOISO 
STR3CI43 
STROC15C 
STR3dl6w 
STRGCITO 
STR33I80 
STR0yl93 
STR0023C 
STR30213 
STR0022C 
STR:C230 
STR032AC 
STR00250 
STRC326-: 
STR30270 
STR3023C 
STRiC29C 
STR0023C 
STR0C310 
iTS:022C 
STR3033C 
STR0O24C 
STR:»w35l 
STR3C36C 
STRT0373 
str:c38: 
STR0n390 
STR304CC 
STROCAi: 
STROyAZO 
STRUUA30 
STPOO'AC 
STRyLs ;C 
str:c46: 

STR70470 

STRC048C 

STR0CA90 
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C INPUT VARIABLES 

nc '• ■ • 

REACiStSOAllBAND 

" $ ?6 F Af (nr.n ' 

15CI FOPMATCPi:.Ol 

RDToTf.aOcri title “ ' 

REACt5t4U:S)10N 

— ?FdT“Pai^MATTTn ■ 

3001 FORMAT! ICA8) 

".iRiTeiVt 2C02» T ITU 

3K2 FORMAT (IHl, 'JOB TITLE :• t // tlCXtlOAB »/// ) 

Ry-Ad C 5~t'lO C lie VLN Th t SEOL TH . 10 • R I N ,RCUT , S P SNO 

REAOl 5» iw Ol lESl tSSTHtPOI SSR tSHLTHKtF I LTHK tRHCHt 

liFt' FA # Fli FS f FSO SPrrACF AT - 

13:1 format ( 6FiC« 3 t 

RSAC(l,l053l(KOTHRC JTR) ,JTR«1,4I 
REAOl 5f 13C3 MIOThRI JTR) »JTR*l »4I 
13C3 F0RMATI4Fi0,0» 

WRITE(6t200CI CYLNTHtSFGLTH.lCtRINtROUTfSHLThKfFiLTHK* 

! ffliQHTFSZTCTmTFCIT^RTSPSNC ' 

20CC FORMATilX,' INPUT DATA* •,//# 

1 “ IX.HENGTH OF cylinder » *,T48. F10.5|T59, ‘FEET* ,/t 

2 IX, 'LENGTH OF SEGMENT » *,T48, FlO.5 ,T59 , 'FEcT • ,/ , 

3 "lx, ‘SEGMENT distance FROM END CF CYLINDER ■ ',T40, F10.5,T59, 


STR0C500 

STR00510 

STR3US4C 

STR0C59C; 

STROOE40 

STR00663 

STR0C670 

STR0C68: 

STRU0700 

str::713 

STR0072: 

STR00730 

STR0U74C 

streets: 

STR0076-5 

STR3077w 

STR0C78C 

STRCC790 

STRCC8D0 

sTROoai: 

STR0C62C 

STRC083C 

STR00840 

STR0C89C 


FEET',/, 


6 

6 

9’ 


— I)f,”*IADTUS ■ OF 1 Nf5Bl”CTLTN0ER"‘« ' , T48 , ‘ F 1C . 5 , T 59 , ' F E ET ' , / , 

IX, 'RADIUS OF OUTER CYLINDER ■ ',T48, F10.5, T59, ' FEET ' ,/ , 

‘ lX,~*rSHgLL structural THICKNESS • ',T48, FIO. 5 ,T59, • FEET ' ,/ , 
1X,'SHELL FILLER THICKNESS « ' ,T48 ,F10*5 ,TS9 , ' FEET' ,/ , 

■ 'TXV‘ SHELL density • ',T48, FID.5 ,T59 ,' SLUGS/ F00T**2' ,/, 

A IX, 'LONG ITUDINAL YOUNGS MODULUS • ',T48, 010*5 ,T59 , 'LES/ FT**2' , 

FIX’, »CrfliCDMFBrFFlTnfrT:UNGS'MCOULUS"* ' ,T43,D19.5 ,T59, ' LBS/FT*R2' 

B ,1X,17hP0ISS0N'S RATIO « ,T48, F1C*S,/, 

C IXi 'SPEEO OF SOUND - ',T48, F10.5,T59, 'FEET/SECGNC I 
WRITE(6,2035}FA,FI,FSDSPL,FS,EF 
20Cr F0R|iTATax, ' FRAME AREA - ' ,T48 ,010*5 ,T59 , 'FBET**2 ',/ , 

I IX, 'FRAME MOMENT OF INERTIA * ' ,T48,01C*5, T59, 'FEET**4' ,/, 

r frame- sk i irccNTRonr ottt“xt-i ,t4bvoio*5 ,ts9 , *feet' ,/, 

3 IX, 'FRAME SPACING • ' ,T48 ,D10* 5 ,T59 , 'FEET ' ,/ , 

4 IX,' FRAMF YOUNGS MODULUS • • ,T48, 010*5 ,T59 , 'LBS/FT**2' » 

2006 FORMAT!/, IX, 'ADJUST CIRCUMFERENTIAL BENDING STIFFNESS BY ' , FIO* 

I 41///// I 

REMO!5,30lO)SYOAMA,STOAHb,ADAMA,AOAMB,BBB 

30ir Faiwn-4f - ' 


STRCO 86 C 

STRC387C 

STRC0880 

STR0C893 

STRCC900 

STR00910 

/,STR:092C 

,/STRf093C 

STRC0940 

STRC395C 

STR00960 

STR0C970 

STRC3983 

STR3099C 

STRUOOC 

STROlOlO 

STR0102C 

STR01930 

STR01C4C 

sir: 1:5: 


READ! 5, 1002) NST ,NEND , 1 ST ,I SEND, FST ,MEND , I PST , I PENO, 1 CST, ICCNC 
1-3C2 FORMAT! 1015) 


READ!5,1C03)RELAX 

hR1TE(6,2006)RElAX 

R£A0!5,1C03) TVXR ,AXCDF ,TVYR ,AYCOF 

j. 

C CONVERT TO RADIANS 

C DEFINE” MISCEtLANEOUS CONSTANTS 


STROlOeC 

STR01C73 

STRC1J80 

STR01090 

STRCllO: 

STROmo 

STR01120 


ALFA«ALFAI«*0174532925193432DC STR0113C 

C ’ ■ ■ • STR0U40 
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n r%o 


STR3U5 


OCNOM-ROUr 

— wim?roB — 

REACCStlSOllWOMEGl 
tRCMOM66ULE.%9l GO TO SCO 
U0HEGA«M0HEG1*2«0Q*P1 
TOfAlL«C«0O 
00 40 1DX»1*4 

;:^UI3T-^LTnUXT«r.”lJ3 ' 

C CHECK FOR THE HOLLOta CVLlNOER CASE 

IPlRiN.SQ.O.OOl GO TO S 
8ETA«R0UT/R IN 
dETA3«BETA*«3 
B£TA5>BGTA3*8ETA«BETA 

OCNORSRTTTJ 

5 nSQ«hOMECA*MQHEGA 
VCRIT-.9S99S00 
OUIT-l.OO-VCRlT 
CSQ«SPSNO«SPSNO ' 

PI0L2*PI«PI/( SEGLTH4SEGLTH) 

gyftjq y g yg - 

S«P i0L2*B2 

SKINr*CSHtTHK»*3)A4S«004SHLTHK*(CFlLTHK4SMLTHKI/2.00l**2 

RS«FA»FSOSPL/(FA«SHLTHK*FS: 

■ TFaFSOSPL-RT ' 

ONUF-l.OO-POl SSRPPOI SSR 

CTT » CSr ^S W CT H K / PW U F 

C22*<cSTH*SMLTMK4EF*FA/FSI/PNUF 

OlI*SKTNT»BSr/PNUF 

022*USKlNl4SMLTHK*RS4RSI*BStH4SF4(FUFA"AF4RF»/FS)/FNUF 

022-022*RELAX 

CRAT-C22/C11 

URAT-D22/011 * 

C«RHOh*ROUT*ROUT/CU 
CKi 0 22/1 C22*R0UT*R0UTI 
A«(1.0>P01SSAt/2*OG 
AATIO-seCLTh/CYlNTH 
PIOLA-Pl^CVLNTH/A.DO 

RI I ^2«R" r W*» ' 2 

hFTERM»n 2«0)*RQUT*CRATI /I P I •SEGLTH*RHQM) 1 *42 
PICYL-PI/CYLNTH 
P10LL2*PICYL4P1CYL 
■ PICYLZ-PICYt*r: 

piseg-pi/seglth 

PIL Sq»l«D0/IPrS E G»i 2 « D 0 /SEGlTHn- 

VQLUM€*P|*C YLNTM*<B2-KiN2l 
C THE'“FOLLOWING ARE USED IN ROCTINB PCJ 

WOLC*1SEGLTH«MOHEGA)/SPSNO 
rtOLCFTS'40tC/PI “ 

CBM«SPSNO/(ROCT*WOMEGA) 

PTCeR'.IiUa/CBw ' 


CALCULATE ACOUSTIC MODES 
IFriON’.ea^Fl GU ^TD 352? 


STROllBC 
STR)U90 
STR01200 
STR01210 
STR0l22i 
STR01230 
STR01240 
STR;125C 
STR0A260 
STR 31270 
STRC1233 
STR0129C 
STRC133C 
STR01310 
STR01320 
STRS133C 
STR01340 
STRG135; 
STRC1360 
STR31370 
STRwlSBC 
STR0139C 
STR0140; 
STR01410 
STR01420 
STA5143C 
STRC144.' 
STR3145C 
STR0146W 
S7R31473 
STR014BC 
STRG149C 
STR3153C 
STR31513 
STR3152W 
STRD153: 
STR31540 
STR0155: 
STR0156: 
STR0157C 
STRClSdC 
STRC159C 
str:i6wU 

STRC161- 

STRS162U 

STRtlES: 

STR0164C 

STR31630 

STRHfcS. 

STR3167C 

STR:168C 

STRvl69C 



CALL AMCOES eNST,NEN0ttST,lSEN0»*'ST,f*ENCtI0K«L909l 

; 6i(S^NWu.fS" 

IFt JON«NE»2*ANO»ION«NE.l) GC TO 31 
MRlTElAt 20021 

29^2 F0BMATiiHitT27f ‘EIGENVALUfe 
K0UNT»0 


00 30 1«1»NUMK»3 
K«1«>Z 

WR2TEC6tl0O3) (KN$|J)tSNK( J) tJ*I tF) 

2033 FORNAmH t 3( I9t2XtDI0«4tlX) I 
KCUNtaKCUNT^l 

IF(M00(K0UNT»5CI.S0«CI mRITE C 6.2C02I RINtRCUT 
STOUnTTIJuS 

31 CONTINUE 

C CALCULATE STRUCTURAL MOOES 

CALL SMOOSC t IPSTf IPFNOtlUSTf IGENOtICN) 

9927 CONTINUE 

C INSURE OPPOSITE DIRECTION SEARCH NEXT TIME 

rAWA7«7B^^'-rcT;F07SAW) — ’ — 

WSQB-MSQ/BANFaC 
" WSOT-¥SG*bANFAC ■ 

MSsiC«WSO 

0£lTAM»0WT1mS0T)>0SWRT(MSWBI 

C 




KTOP-0 

DO 7w K-TtNUMST 

IPiSTMOOSiK I.GE.WSOT) GO TO 7C 

ifiktop,Eo.ci KT0P«K 

IF(STMOCStK)*LT*MSQBi GC TO 8C 

“TjTDFrnRro? — 

80 KBOT-K-I 

IFlK60T*CT.KTCiP*0R«KTJP.FG.C)GC TC 730 
00 90 KS«KT0P*KB0T 
mSw»STMODSUS) 

IP«M 0D(MPw4RS>f ICC O ) 
re-HPUiTcsT/icao ■ ~ 

GRNOPP* U070 
GRNTOT-C.DO 
aiGSUM>C.OO 
00 I I0X»1,4 
SPGTOTI IDXl-0.00 

- XTGyMTTTir«¥j;:i53 

CALL FRSFND(ACMODStNUMACtK) 

MNO IR-K * 


S.RC17GC 
STRC171C 
STRCi72C 
STR3173C 

RESLLTS*f//»3( *1 KCICES • t4Xt • EIGEAVALUESSTRS174C 

STR3l75e 
STR3176C 
STR0177: 
STRwl78C 
STRC179'. 
STRC1800 
sTRCiai; 
STR31d2C 
STR3183W 
STR3164.: 
STR0185C 
STROlBbO 
STRnSTC 
STR918BC 
STRwl39C 
STR319JC 
STR01919 
STR31920 
STR?193: 
STR3194C 
STRai950 
STR jl9b.^ 
STRC197r 
STRC1980 
STRC199C 
STR.tZOOU 
STR323I0 
STR0202C 
STR0203C 
STR02043 
STRC2C5C 
STRJ206C 
STR3237C 
STR02C8C 
STR: 209.3 
STR0213C 
STR32110 

str; 212: 

STR0213C 
STR3214C 
STRC215C 
STR0216C 
STR3217C 
STR32133 
STRC219C 
STRy2230 
STRC2213 
STR02220 
STR02230 


ISAV£«IABS(MNOIRi 
10 CALL SCALCtKtM»N»£930l 
CALL MNSUMlMtNtlPtlQtClO) 

9j“ CALL PCALB<KS7i^fTi5TraTALLiPCTALL)* ■ 

C final RESULT 

RhOA i C,0C23603 
CUMVAR«1.00/0ELTAM 

ANSWER»l{CSQ*RH0A*R0UTJ**2/t2.00*V0LUMEn*TCTALL*DUMVAR 


jhiginal 

IF POOR QUAUTY 
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lFCANSMfA.CE»0*OOIGO TO SCI 

— srat«riTtr.oc*ccOTWNsi«Ar““ 

AHCONT>l.*i:«**UNSHER/20»l 

ANSREO>AN$M2A-2%*OI.OCICCAilCCNl) 

NAlTFCAf A9««) 

9999 FORMAT(K^X) 

MR|TE(6t2C04) ANSIiCR»V)OMeGI 

20C4“?0RMAniA;»***V0L fVE AMPLIFICATICN • C8S FOR SF?.!, 

I* HERT2 BAND*) 

MRlTEUtS002) A*4SR£0 

5C02 FORMATIlAv'VOt AVE AMP li/IMTEftNAt PRESSURE EFFECT • SF6*2) 
FACTOR* (CSOFRHOA*ROUT)«*2/2»OG*OUPVAR 
CO SO 1DX*1»9 

~ • - PACPOTffFACTOR*POTALU rO XI * 

IF(FACP0T*L£*0.08tFACPOT«l«0-TC 
50 PANSRl ICXI«ia*0a*04.aGl0IFACPCTI 
MR1TEI6.SC0CI 

50C0 FORMATCnXt *RA0IUS(FTI*«8X,*LNTH CCCROCFTI • •8X» *FNT AMFLICBS)*) 
00 60 10X*lt9 

" — ‘ "Ti RTTWTfi *'5001 niOTHRI TlTXr.ZOTHR Cl D XI . P AN S R II CX I 

50C1 FORMATa2XfF7*3tl4XtF6«2a5XtEI0.9t 
60 CONTINUE 
ION* 5 
GO TO 700 

aCl WftlT2(6t805i answer 

■'‘tOIOiTAr * ^ 


I ON* 5 
GO TO 7C0 
SCO CONTINUE 
STOP 

C cRAOR STOP 

■ 9C7~3T D P • SOI 

END 


STR..2240 

ST*.}225C 


STR0226C 

STR0227C 

STR02280 

STR0229C 

STR02300 


STRC231C 

STR02320 

STR0233: 

STR023<»C 

STR0235C 

STRv236w 

STR0237C 

STR02380 

STR0239C 

S7R:240C 

STR02410 

STRC2420 

STR02430 

STPC2440 

STR0245C 

STR0246C 

STR02470 

STR0248C 

STR02495 

STRC250U 

STRC2SU 

STR02520 


. 'RiGSNAi n 
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JUH 74 I . OS/367 FCHTRAN H 

PILfR OPTIONS - NAME* MA!NtQPT*02ttINECNT«56 tSUE*OOdCKt 

TOimClTIBCrSlCim'ISTiNflaKA.LCADiPAP.NCIOIT, ID.NCXPiP 

SUBROUTINE A:>iGQES INST«NENOtXST»iSEROtMSTeHSKOilCNt*l AMOCOOlO 

C ‘ C AM00002C 

C AMOCwwJw 

c * " C AMC0004C 

C THIS subroutine CALCULATES T'r,E ACCLSTtC PCOAL PRECiJLNCIES* C AMaO:USC 

~C rirFFTRSaUENCfnCTCrULATEir HAS' THREE ASSOCIATED INDICES# P.N.IS. C AMCCC06C 

C the PRSOUENCIES squared are calculated AKO PLACED IN ARRAY C AM00007C 

C ACMOCS. 'THE THREE INDICES ARE PACKED INTO CAE UCRC AKO STCREO C AMOCC080 

C IN ARRAY HNS AlTH THE SAME SUBSCRIPT AS ACMOCS* ALThCUGH THE C AMCOOU9C 

C INOICfl ARE PACKED IN THE ORDER M»N#IS THE CALCULATICNS ARE C AH000190 

C PERFORMED IN NESTED LOOPS Hi TH M CIRCULATING FASTEST FCLLOHEC C AMOOUUC 

-'C 8Y~TS"*NtrNVTHE~TNOTCET ALL 8ECTN AT ZERC. C AMO0C120 

C C AM000130 

CHH*A**«»***A**A«A««*AH*HAH«*H*«**A*A«HAH*H««««*H*H*«HH««HH**P*H*****C AMCODIAO 
c C AMOCO I 50 

IMPLICIT REAL A I IA-0»F-H#C-ZI AMC3CUD 

DIMENSION BLF(3I#IBUFI3I AMOCOITC 

CDWroTTTCONETTPT ~ AMOOCIBC 

COMMON /NORMAL/OENOM AM000I9C 

COHMOr /TAU SQ/CSQ# PI0L2 AM0D02&C 

COMMON /ACUSTK/ACMOOSI 80001 tPNSI 80001 fNUMAC AM00021C 

COMMON ^SOLNS/SNMAOC) »KM$I4C0I .KUMK AM02022? 

GO TO (100tLOC»23C#20Cl »ICN AM0CC23C 

-C ■ ™ AM00024C 

C iNiTlALIZF The INCREMENT TEST VARIABLE FCR RCUTINE REGFAL. AMO;C25‘ 

C THIS VALUE OF ZERO IS PASSED THROUGH RCCT TO REGFAL FCR AM00026C 

C USE The first time REGFAL is called. AMOC0270 

ICJ XNS-O.OC AMOCC28C 

CRITH-1,030 AM0CC290 

m: " ■ AMU 00 300 

j«i AMOvCai; 

C LOOP OVER THREE MODAL INDICES AM000322 

C AM0U0330 

C NOTE THAT THE DEGENERATE CASS CF M*3fK»3,IS»9 HhICH PRCCUCSS AMCOOSAC 

c m2hns«) is Eliminated thrclgh the use cf critl which is amogdssu 

~C S CWA T S GR E A T E R ’t ' KAT^TtKO^- " “ AM00036C 

10 N«NST AM0CC37; 

11 IS*rsr AM00038C 

C FIND THE NS TH EIGENVALUE AMG0D39C 

12 CALL ROOT IN# IS#XNS»S5C1 AMOOCACC 

C NORMALIZE THE EIGENVALUE FOR CLR USE AMOC04IC 

RI T SSO* yXNS7 0E N0 Mr»*2 * ~ AMU0C42: 

M*MST AMC:<v43! 

C CALCULATE modal frequency SQUARED AND CHECK IF IT HILL EE CF AMC0C44D 

C CONSEQUENCE AMOODASw 

16 i<2HNS«CS0*l)»NSSQ*M*M»PtCL2) AMC0CA6; 

IFIHZMNS.GT.CRITHI go to 21 AM0DCA72 

— C Sg V E~TRF Q OEN C T'? aUA RE P" ANp-PACKEO TNCICES AM0CUA3U 

ACMQ0Sm«M2MNS AMCDCA9v 

IHDRD*M*rOOt*tS AM00C50D 

MNSU i>M»lDC0CC3^lHOR0 AMCQOEIO 

AMOCD522 


T 


t 


c 

c 


L 

c 

c 


21 


20 

'^i7T^;zr;FfShbr$ff-Tff-i2 

GO TO 16 

IP M«MST HCnC THF NS TH EIGENVALUE MAS NCT USED AND 
SHOULD NOT SC SAVED 
{FIM.EG.MST) go to 26 

SAVE EIGENVALUES AND PACKED lAOIC^i 
T2™TnrinEw7lTfr.AN0;‘iN*fQ*NST» ICKI TM-uZNKS 

SNKIJIaXNS 

KNSU}*IM0R0 

GO To 27 

KEOEFINE NAXINUN IS VALUE* IP THE M LOOP HAS KICKEC CUT CN 
Thfe FIKirVArUE’ OF N THEN THE VALUF CF I S AT THAT PCINT IS THE 
maximum VALUF OF IS ME NEED TC LCCK AT IN FURTHEP ITEPATICNS* 

26 I SEND- IS 

27 IS*IS^l 

lFnS*aT*IScNO) GO TO 3C 
GO TO 12 

IT'fJWfT * ” 


AN09C93D 
AM0CCS6C 
AMOD0S5C 
AM00096L 
AMOCCfTw 
AMC )09E: 
AMOQC59W 
AMOt.06)*: 
AM03D61C 
AM00G62; 
AMO K63*: 
AMUvGtAO 
AMCDD65C 
AM07:66w 
AMUD067C 
AM0CC680 
AMO 30 6 1C 
AM03C70C 
AM00071C 
AMG0O72C 


IFIN.GT.NENOI 30 TO 31 
GO TO 11 

C NUN6ER OF ACOUSTIC MODAL FREGCENCIES AND EIGENVALUES 

31 NUMAC-I-l 
^NUMK*J-l 

C5UnOffTTACHOiysr,MNy,NUMACI “ 

MRirSf lt2SC)NST»NENO»IST«lSENO«MS7rMENO»NUMAC«NUMK 
NRCl*NUMAC/5 

1 F i NRC 1* 5*L T*NUMAC I NRC 1 »NRC !«> 1 
CO 60 JJJ«1»NRC1 
1N01»S«IGGJ-1I«>1 

m02^1N9T«^E^ - 

IF( IN02*GT*NUMAC)IN02«NLMAC 
WRirE<l»2SO)(MNSIIII)tlII-lN01tlN02) 
MRlTCIlt3SCMACMC0SniI)*III«IN01 tIN02) 

60 CONTINUE 
NRCl»NUMK/5 

rnRRCiw r;rT^7njMK iNRcr-Nfi a ♦ i 

00 61 JGJ«ltNRCl 
IND1*5*IJJJ'1|4'1 
INO 2- INDIRA 

IF! IN02*GT*NUMKIIND2«NUMK 
WhITEIlt25DMKNS(Illl»III«IN01tlN02l 
^ R IT T n n 507TSNiaT T n f 71 1 «T NDl , I N02 ) 

61 continue 
25C FORMATiailOl 
350 FORMAT(5016*13) 

C mRITE STRUCTURAL MODE FRECLENCIFS 

TkOPI*2*03*PI 

?rrTST6 ^2300 r*“ * 

20C0 FORMAT! lHltT18t*ACOUSTIC MODAL FREGUENCIES AND INDICES' 
I ///# 31 'INDICES'. 2X,'FR2;LENCIES' f 3XI#//I 

KOUNT-0 

00 AO I«1.NUMAC»3 


AMOC074C 
AM000790 
AMO:C76* 
AMC3777C 
AMOC078C 
AMO ?w7i: 
AM0008CC 
AMoccetc 
AMO)v82C 
AM0CC83C 
AMO0064C 
AMOwC65w 
AMO 3C 8 60 
AMOUC870 
AMO*: 388: 
AMO0 m89C 
AMC3D93C 
AM0039i:^ 
AMO 009 2C 
AM0C093U 
AMCCC94C 
AMCOriSC 
AM0C0960 
AM0:G97C 
AMGCC93C 
AMGCC99C 
AMO31C00 
AMCOIOIC 
AM001023 
AMC01J3C 
AM00104C 
AMOOIOSC 
AMOQUcC 


I 
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*^sliTr msupimisin’ hertz ' 

■ 00 35 J*I#K ■ 

BUFU }•0SgHTC ACMOOSC J II /TM3PI 
' 18UFILI-MNSIJI 
35 L>L«1 

HRTiTf s723flTraBorni # Bin j i , j-i ,31 

2*.C1 FORMATUH t 31 19t3XtF8*lt4XI f 
KOUw<’*KOUNT¥l 

IF(MOO(KOUNTt53l*EQ«OI ViRI TE (6t2C30l 
4) CONTINUE 
RETURN 

3Cff"R5Wni7253TNSr,NEND^rsr,ISSN0fMST,MeN0tNUHAC»NUHK 

NRCl-NUMAC/5 

1F(NRCI«S*LT«NUMACINRCI«NRC1^1 
DO 70 JJJ*ltNRCl 
1NC1*5*(UJU-1I^1 
INC2«1N01^4 

^fl!TTRlf2;Tn^irOTMAC)I>iO'2*NUMAC ' ' 

REACIltZSOKNNSdMItin-INOl tlNOZI 
READU»3S0)TACN0DSniII »ITl*IN01fIN02l 
70 CONTINUE 
NRCl«NOMK/5 

IF<NRCI«5«LT.NUMK)NRC1»NRC14>1 

DlT T l • J J jynNRCt '• 

IN01»5*UJJ-1I^1 
■■ lNC2«IN0I«-4 

IFI 1N02*GT*NUHKI1N02«NUHK 
’ RcACri#250HKNSimifirr«IN0lfIN02l 
RSA0a»3S0l(SNK|imtIII>INUltlN02) 

7 1 CON T INUE • 

RETURN 
5? RETURN 1- 
ENO 


AM001070 
AMOC1C8C 
AH00109C 
AMCO 110*3 
AHOOlllC 
AM00112C 
AM001130 
AM0G114C 
AMOC1150 
AM03116C 
AMG01170 
AMOdllSO 
AM03119C 
AM00120C 
ANO.'12i: 
ANCG122C 
ANC0123C 
AM03124C 
AM0012SC 
AM031260 
AM0C127G 
AM001280 
AM00129C 
AM001300 
AM0013I0 
AM00132C 
AH00133C 
AH00134C 
AHO0135O 
AMOC136S 
AH00137C 
AF001380 
AMO 01 390 
AM00140C 
AM00141C 
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OS/360 FCRTRAN H 


,gR OPTIONS - NAHc « MA IN #OJPT«Oi » H NEC N T«56 » S 1 26 «0C5: K t 

S aUR'ClTlBCb I C t NOX l ^ T » NODE C K » L C AC » MA P t NCe C IT • 1 0 1 NCX R E F 
SUBROUTINI: BESSEL f NiXXtBLJtbLYI 


this routine OECIOES AND CCNTRCLS teHiCH FETHCO WILL BY tSEC TC 
'ClLCDrATF*7TiTWrS6l“AND ->IEUMANN FUNCTIONS. THE SANE CRITERIA 
IS USED FOR BOTH. FOR ARGUMENTS GREATER THAN TEN* THE 
asymptotic SERIES T^CHNluUE IS LSEO. THE ASYFFTOTIC SERIES IS 
FOLLOWED BY A RECURSION PROCEDURE T.F THE CROER SPECIFIEC IS 
GREATER THAN EIGHT. FOR SMALLER ARGUMENTS THE ACTUAL SERIES 
d efinit ions O^THE functions are used. THIS TECHNIGUE IS USED 
FOR ORCESTliP TdTsSr ABOVE THAT THE VALUES FCR SMALL ARGUMENTS 
(LESS THAN 10) ARE DEFINED TU BE 2ER0 ANC NEGATIVE INFINITY. 

THE RECURSION PROCEDURE MAY NCT WORK IF THE TFCHMCUE IS USEC 
TO FIND A RESULT WHICH SHOULD BE LESS THAN l.-U' IN ABSOLUTE 
value due TO SUCCESSIVE ROUNDOFF ERRCRS. 


IMPLICIT REALMS ( A-0.F-H.0-2) 

COMMON /CONST/PI 
COMMON /RAOII/RIN.POUT 

TsWPToTi CTlR'i bXPRE S S I CN S 
BSLY(T0TP.T0TQ.ARG)«0S0RT(2.D :/(PI*XXn •(TCTFmOSIMARGI 
1 «-TOTOMOCOS(ARG)) 

6SLJ|TOTP.TOTw*ARG)«OSdRT(3.DC/(PI*XXn •(TCTPMOCCSiARG) 

1 -T0TQ*0SIN(ARG)) 

— rFnrx;GTiiciT»ci~Go Toir 

IF(N.GT.55) GC TO 3: 

USE ACTUAL SERIES ObFIMTICNS 
CALL BLJOfeF(N.XX.BLJ) 

NO NEED TO CALCULATE NEUMANN FUNCTIONS FCR HCLLCw CYLINCER CAS 
I FIR IN. £0.0 .0 0) re turn 

RETURN 

15 IFIN.GT.BI go to 22 

USE ASYMPTOTIC SERIES 
CALL FSQSiN.XX.TOTP.TOTQ.ARt.) 

BLJ>BSLJ(TOTP.TOTU.ARG) 

Check holl ow~t?i f nDe R* c a sf 

IF(RIN.EU.O.DC) RiTURN 
0LY«BSLY(TOTP*TOTD*ARG) 

RETURN 

USE ASYMPTOTIC SERIES THFN RECURSION 
2.} call PSOS(8«XX,TOTP.TOTQ.ARG) 

3l jTT«a5Ljrrurp;-To tcttarg i — 

check hollow cylinder case 
rF(RlN.EQ.2.o:) go to 25 
BLYN»BSLY(TOTP.TOTQ.ARG» 

CALL PSGSd.XX.TOTP.TOTG.ARG) 


BSSCOOlO 

BESGCU22 

BESKOaC 

BESduUAD 

bes:dosc 

BESOC06C 
BbSODCTC 
B ESOcU dC 
BESDCJ9U 
6ES5010C 
BESDCUO 
6£S3**«123 
Bbscnsc 
6ESD014D 
BES0C15C 
BESOOliriO 
BES0D17C 
BEsCwiac 
BESDU190 
8ES0C2C0 
BBS OC 2 10 
BES0022C 
BSS3w230 
BES 3024C 
BfeSD025C 
BESC0260 
BES0027w 
BES30283 
BESC229C 
BSSC0332 
6ES0031C 
BESCC22C 
BES0U330 
E6ES:C34C 
B&S3035C 
BSS00260 
8ESC327C 
BES0033; 
BESGC39C 
BES 5C4? ;- 
BEs:r4ic 
BFS3C420 
bts:'43. 
6ES3044C 
3ESUl* 433 
B6S?C46w 
BES0C473 
3FS30430 
SES0C49C 
BES 00 5 50 
BESOuSlC 
eES3C52: 
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, s 

> I 

BLJNMl«eSU(TOTP»TOTQtAROI 

§IWm r-’SSOYTCTJT, TGTii ;ar»J f — 

CALL RliCURtNtXXtBLJNfBLJNMitBLJ) 
CALL RSCURf NtXXtDLVNfdLVNML »BLV) 
RETURN 

' C HOLLOW CYLINDER CASS HERE 

25 CALL PStiS(7fXX,T0TP,TCTQtARG) 

3L JNM i*BSL'Ji T^TP »■ fO TQ .ARC I ■ 
r CALL RECURIN.XX.BLJN.BLJNHl .8LJI 

I RETURN 

i I 30 BLJ»C*00 

BLY«-l«075 

RETURN 

1 ’Hnd 


BES00530 
BESCCSAC 
6ES3CSSO 
B6SCC560 
B6S0C570 
BESOOSdC 
BES0w59C 
BES )060C 
BESwwAi: 
BSSC062C 
BCSC063C 
BESC06AC 
BSSC065C 
6eS;C66C 
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PUEA OPTIONS - NAME- NAlNtOPTw}2tLlNECNT«5d tSlZE«C9PJKt 

• 




50URCE»6BCdIC#NdLIST,Nfi0eCKfLCACtPAP,NCE0ITt 

ICtNCXREF 




SUBROUTINE BLJDEF (N*X«BLJI 



BLJ 00010 

C 



C 

6LJ0C02C 

‘ C< 



•C 

BLJ0003C 

c 



c 

BLJ 00040 

* c 

THIS ROUTINE CALCULATES THE BESSEL FLNCTICN USING THE 

ACTUAL 

c 

BLJCCuSC 

c“ 

SERlfS OEFINTTldN F OR 'ARGUMENTS CESS THAN OR EQUAL TC 

TEN. 

c 

BLJ 00060 

! C 



c 

BLJuOOTO 

> a 



•c 

BLJOCOBC 

c 



c 

BLJ 00090 


IMPLICIT R£AL*e ( A-OtF-H,C-Z) 



BLJOOIGU 

1 

COMMON /CON V/ UP* ON 



BLJ 90 lie 


COMMON /FTHOPaCCSTI (PSilow) 



BLJ 00120 

c 

• 



BLJ0U130 


IFIX.CQ.O.OOI GO TO 30 



BLJ0014C 

c 

MATCH LIMITS OF STORED FACTORIALS 



BLJ0015C 


Z«1*0C 



BLJ 0C179 


M»57-N 



BLJ 00 160 


M-57-N 



6LJ0016C 


Z-I.OO 



BLJ0017C 


ZZ»X*X 



BLJOOIBC 


SUM«0«00 



BLJ3019C 


TOTAL- 3*0C 



BLJ002CC 


EJ-l. 



BLJ 00210 

" 

D"o"nrpr7» 



BLJCC223 


K-I-l 



BLJ0J23O 


VAR-2.00**! 2*K«-NI 



BLJ 90249 


TQTAL-SUM*e J*Z/FACC I » /FAC C 1>N» /VAR 



BLJ0C25'. 


IF(TOTAL.EQ.O.Odl GO TO 5 



BLJ 09260 

c 

CHECK CONVERGENCE 



BLJC027C 


VTSTi'SUff/TOTAL — " 



BLJ3C28C 


IF( VAL.GT.ON.ANO.VAL.LT.UP) GO TC 2C 



BLJ3929C 


5 EJ— EJ 



BLJ 00200 


Z»Z*ZZ 



BLJ 003 13 


SUM-TOTAL 



BLJ0C32: 


13 CONTINUE 



BLJ0C339 


TJ“ffLJsxw*TrinnrTffL 



BLJC934C 


RETURN 



BLJ00350 


2C IF(N.GT.3» GO TO 40 



BLJ 39369 


BLJ-1.00 



BLJ0037C 


RETURN 



BLJ33383 


40 BLJ-0.00 



BLJCC299 


R^ruR'N *“ ■' ~ 



8LJ 99400 


END 



BLJ 3w41 * 


P-Wf I, 


, OS/26‘5 FORTRAN H 

PILCR OPTIUNS - NAME* HA|NtOPT*C2tLIM£CNT*56«SUE*OCOOK» 

SuuOTimfirrcTii'fltiST.^iiaoiCK.uACfMAp.NoeoiT, lo.NcxPEF 
SUBROUTINE BLVOSF (N*X»BtJtdLVl BLVOOOIC 

C ‘ C 8LVC002C 

C*«**««*«««««**«*«««««««**««*«««««**«»**«*»«*»*p«**«***«****«««**«*«*C BLT0003C 

C ■ C BLV;CD4v 

C THIS routine calculates the nclpann plncticn using the C BLV:0U5C 

■""C A?TTD^r ■5WlIS“DrFTFIITrON’Tv5R ARGUMENTS LESS Than CB FCUAL TC 10 C BLT3006C 

C C BLY/XTi 

(*****««*«■«•««*••*««**••**••*«••*«•**««•*••*•«••»«•«**««*««**«***•••€ BLYOcaao 
C C BLY0CC9C 

iMPLlCtt R6AL*0 tA-0,F-H,C-2» BLYCiU; 

CCHMON /CJNST/Pl BI.Y:CII0 

CI,'fS[R)N‘7CDS'57TJPTtW BLYC012C 

COMMON /PCTAL/FAC(S7ltPSl(6C) BLY:mC 

C BLYOOIAO 

lP(X«EQ.O.O:i GO TO 5S BLY^UISC 

T0TiL*0.D5 BLY3G16C 

CUM«C'*OC BLY 00170 

SOH^OVCfC ■ * BLYC013C 

Z«X«X/A«D3 BLYOC190 

IFlff.cQ.01 GO TO 15 BLYOOZOC 

ZZ«1.00 BLY0021G 

■ - UO -K"I*i»N BLY30220 

D1V«FACIN-U1)/FAC( II BLY30230 

tnJH7nWTDT7*TZ • “ BLYCC24C 

BLYJC25C 

“10 CONTINUr" ' BLY:0265 

15 2Z*l.D0 

rJ«T. BLYI3028C 

M«57-N bly::29: 

no 3»3 i«i;'H “ " ' • BLYOoaoo 

OIV«ZZ/FAC( II BLY0O31C 

T0TAL»SUM>(PSniI+PSni*NII*EJ*OIV/FACCI*N| BLYCOSZC 

IFCTOTAL.EQ.J.DCI GO TO 20 BLY.50330 

C CHECR CONVERGENCE BLYG024C 

VAL«SUM/TOTAL BLY:035u 

ITT VSCTor.DN.ANO. VAL; LT.'UPr or TC 40 BLY-5C36C 

20 EJ—6J BLYJ037C 

ZZ»ZZ*Z ^ ■ 0LY:O28C 

SUM»TOTAL BLY0C39C 

30 CONTINUE BLYC040C 

^0 DIV«( (2.D0/XI**Nl/PI BLYG041C 

BrY5T=Tnw*CTJ«^4Tcr: /p r r*o l cg rx /?. d * i pb ij- ( i i x/ 2 . do i ♦* n i / p i i*t qt al bl y do az c 

RETURN 6LYDC-i«33 

50'6LY«-1.D75 BLYOCAAC 

RETURN BLYDCASC 

tJ BLY«1,075' BLY0:A6C 

RETURN BLV00A7C 

. BLYOOASC 


JUN 7^ J . . OS/360 FCSTRAN H 


IMPILER options > NANE- MAINtOPT«02tLlM!CNT«36tSUE«0CO3Kt 


SnORC^nSCBICTIiaLTST. NODE C K , L C AO t MA P , NOE 0 IT , 1 0 . KCX R EF 

FUNCTION CAPGAM (N»iai 

c C 

C«*««*«««««*«*««»«««***««*«*««»««««*«P****P*****«**«*«**«**«*C 

c c 

^ circumferential direct icn. c 

c c 

c c 

implicit REAL*8 U-0,F-H,C-2i 
COMMON /AC CEPT/ALFA 


MMMONVTONTTT'P'I * 

BN * FLOATINI 

JPI i' pi^floatiiqi 

QPIA • gPI/ALFA 

IFl0ABSi6N-gPlAU6T«l«O-2l GO TO 10 
CAPGAM«ALFA/2«00 

5cmr2^3 

1C TSTANG«OPUALFA*BN 

ANGUM«OMOD(TSTANGtPI*2*DO) 

if(ancum«lt*i*o-2*or«(pi«2*do*‘Angumi.lt«i*o-2>gc to 30 
PHIJ«-1LFA/2iD3 

< f^/gj*f*;^* ^Q**NP»^*Ne«3IPHI0«PHlg»PI/ieK«2#00) 

CAPGAM-(0C0S(3N«PHl0l-0CCS(tiPl«>BN*(PHl0«ALFAn )/(ePIA4>BN) 

■ r ^HOCOStBN^PHIO-OCOSIOPI-BNtlPHIC^ALFAm/ICPIA-BM 

CAPGAM>CAPGAM/2«00 
ZrCAPGAHI CAPGAM**2 
RETURN 

STTAPGAHHrTDC * " 

RETURN 

END 


CAPccoi: 

CAPwOC2C 

CAP0C03C 

CAPCCC4C 

CAP00U6C 

CAP0005C 

CAP.«w073 

CAP^CCBC 

CAP0009C 

CAPOOIOC 

cap:oiic 
CAPCC12C 
CAP0C13C 
capocia: 
CAP0015C 
CAP0016C 
CAPC317C 
CAPC018C 
CAPC0I9C 
CAPCC20C 
CAP 00210 
CAP3C22C 
CAP0C23C 
CAP0C2AC 
CAP0025C 
CAP:026C 
CAP0027: 
CAPQ028C 
CAPC029'* 
CAP0320C 
CAP00310 
CAPCC32: 


JUN 7.^_> . 05/365 FORTRAN H 


IMPILER OPTIONS - NAM6« MAlNt0PT«02tLlNECNT«56 tSUEOCOCK, 

S^K^I7ClJtr7^7Jirff7I^T!i;fa'»UA0~«MAP»NCE0IT , ID.NCXREF ' 

SUBROUTINE COP VC (Nl 

^ , . ^ 

■■"■T C 

C THIS SUBROUTINE COPIES STRUCTURAL NODES STPCOS ANC INC ICES C 

C IWTO T5MP0RARV ARRA-^TF7CM"lirtrCirTHEV"ARrCRCS5ED' OUT AS ' C 

C THEY ARE USED* THIS ROUTINE IS USED BY PAIN PROGRAMS *PURTCN* C 

c ANiT^ie7BAli'»T ■ C 

C C 

C«*««««««**i*P««»**'«««*»«««**«P**PP*«P«P**«*«P*»«**«**«P»*»«P**«*«««*C 

C C 


rMPL’IC’.r RE *L*8"1 A-0;F=ff7C=7) 

COMMON /SAMPLE/TEMP(1200) tLPCS(l230) tNUPTMP 
' COMMON VSTRuCT/STMODSa2U:ifPPU(120JI •STPC03(4):f3) ,PPfi3(40Dt 
1 NUMSTtNUM3 

c 

DO 10 I*lfNUMST 

rtHTTm-TTMOtrs-m ' *• 

LP4S(n«MP0(II 

lO'CONTTNUfT ' 

C NUMBER OF ELEMENTS IN TEMP ARRAY 

"NUMTMP"* NUMST 

RETURN 

eiTO 


CGPOOOIO 
COPOOC2C 
CCPU003C 
COP 5C54C 
COP0C05C 
CCP00060 
C0P0CC7C 
CCP00C8C 
COP0C09C 
COP3010C 
COP V UK 
C0PCC12C 
C0P00I3C 

copccia: 

CCPOOISC 

COP00160 

C0P0C17C 

COP00185 

C0PCC19C 

C0PC023C 

COP30210 

CCP0022C 

CCP0023? 

C0P0j24C 
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I^PILER OPTIONS - NAME* NAtNtOPT«02f L1N£CNT*S6 tSlZE«OCdOK» 

... SaURlTETrRCttlC’.NOllSTfNCOECKtLCACtMAP.KCEOIT.ICtNCXPEF 

SUBROUTINE CUBIC! X»P tQtR t«l 
HPUCIT RFAL*BIA-0»F-H,0-2) 

DIMENSION Xt3) 

DATA PI/3*l4lSS2!535e9739DS/ 

A«0-p*P/3«00 

■ B*lj;C3*>*lfS=*9;DC*P*0^27.D5*R»/27.0C 

lPUa*«2/4«00^A«*3/27.D0UUT«C»D0l GO TC 10 
HTA3*0SGRT(-A/3*03) 

PHl«OARCCSC-B/( 2*OC*OSQRTI-A»«3/27*OOI > ) 
X(ll*2«OC«RTA3*DCOStPHl /3«0CI-P/3«0C 
X(2I*2«CO*RTA3*OCOS(PH1/3«OC4>2«OC*P1/3*CCI-P/3*0') 

“ ’Xi 3Ti2.0C*ftTA3*t)C0S!PHl /3«00^4.0C*PI /3. CCI-P/3.03 

RETURN 

ID FR1TE(7(13C) 

130 PORMATUXt MHAGINART ROOTS') 

RETURN 1 
END 


CUBDOCIC 
CU6CGd20 
CUBCirC 3«» 
CUBCDCAO 
CUBUOU5C 
CUBDC06C 
CUB3CS7C 
CUB 000 80 
CU600C9C 
CU6001D0 
cuBCOiia 
CUBC012C 
CUBD013C 

cueociAc 

CU80U15C 

CUB00160 

CUB00170 


: JUN 74 I . _ OS/360 FORTRAN h 


1 NP1L6R OPTIONS “ NAN g» ^INtOPT«02tUNECNT«56tSI2E«OOOOK» 

SOOK2TEtlIC01C7N(Sn STV NC06CK t LCAC t HA P# NCEO !T 1 1 0 1 NCX R IP 
BLOCK DATA 

IMPtfCir AEAL«8‘ IA-OtH-H,0-II 

FACl{27)tPAC2l30l tPSIll30l •PSI2I3CI 
" COMMON /feONST/« 

COMMON /CONV/UP»ON 

eoMNON'Vd'tA/ 1 $anE • tdPF — ■ 

COMMON /FCTRL/FACf 57),PS1(6C) 

EOUIVALENCE iFACIlltFAClU)) f(FAC(28l tFAC2U)l 
EQUIVALENCE IPSl 1 1> »PSI II 1) 1 1 (PSl 131 1 tPS12(in 
OATA"PT/Sii4l5926535«979300/.LP,ON/l,OOC000500,0.99599950C/ 

DATA ISAMEtlOPP/lt-1/ 

"C rnifElTTXCTiJiriArS “ " 

DATA FACl/1.00Ct*lC0CC0)CC0«>ClM2S3?00CS0»31» 

* • 600C3CO0GQO0UCC QO 1 1 • 2 AOOOOOOCOQOOOdOO^) 2 1 

« •1200000000e000000^03t*. 7200000cc000000d003t 

* •Se480CCCeGCCC0CCO^C4t*4032000C0<3O0CO00O«>V5* 

> 3628800J000000030»C6 »• 36288000000000000»07 # 

* •l99168iiGdroedCi9GCOViC8 •• 4790016COOOOOOOOO«-G9 » 

« •6227G208OCeC0CCwO«>I0f*87l782912mC0;:7O«>llt 

* ;i3Ct67436800000Cd4>I3t*20922789888C00300«>l4» 

« •3556I7428C96000C0^15»* 6402373 7057280000n6, 

* ' •l2164S10C4088328D^I8t.2432902CC81766400n9t 

* • 51 J90942X 71 7C 9440«>2d f • 11240007277776080«>22 1 

■ • ;'7!B5?}nT38e849 80r423 »• 62844 840173323940^24 1 

* •1551121004333C990426**40329I46112660560«>27/ 

DATA FAC2/.lw88a8694S:41835029t.3048883446117l38030« 

* . 8841761992 7397CCO»31..2652528598l219100*33t 

* •822283e654l7792CD434f.2631308369336934CO6» 

* •8633317618811 e840*37t«2952327990396040009f 

** Tr0333I4T9ff63T6l40>41‘,;37l993J26739901XD»42, 

* •13763753C91226340^44t«523C2261746660C90*45t 

* .20397882‘331197430>47»* 8159152 8324789740^46 1 

* •33452 526613163790450».14050061177528790«>52t 

* •60415263C63373800>53t«265627157478844704>55f 

* •11962222C86546U10«’57f.55j26221596120850«>56« 

. - ^ ;T5F5r3r4r5Iir6'800^eOV;r24I39I5592536860»62, 

* •6C828186403426710«>63»«3C4l4C93201713350^65t 

* •15511187532673810^67t«6C65817517C94361C^68. 

* •42748832640600220^7C,«23084369733924120»72f 

* •12696403353658260*74,,71099856780486270^75/ 

C STORED PSI FUNCTIONS 

■OaT A Fill/-. 57721'566'4'901332 90CC t C. 422784335 2984671000 1 

* 0.92278433509846710^0&.C«125611766842183CD+Cl 

* 0.15C61176664318GQ0^01#C«17!;61176684218CCD*31 

* 0.13727843350984670*C1 #0.2015641 47795561C0+01 

* 0.2i4C6414779556lOO^Ul,0. 2251752 589066720C+0 I 

* 0.2351752589C6672CD*Cl.J.244266l6799758llC+wl 

* ■ ?.2525995C133C9l440*0i #0.260291809022222 lO^O I 

* % 2674346661 560793001 #0.2741012228327459C*31 

* 0.28035l3328327459D«-il#8.2862336a577292240+Ol 

* C. 29178924132 94779D^0l#0,2973523992242148D+0l 

* ■ 0.3020523992242l470*Sl#0.2068l4303986ll95C*Ol 


CAT 000 10 

CAT 00020 

0AT0003C 

0AT0004C 

CATSL05C 

0AT8CC60 

CAT 300 7C 

CAT0C08C 

0AT30w9C 

CATCOIC'O 

0AT3011C 

0AT8012C 

CATCC13: 

CAT3014C 

CAT Owl 5C 

0AT3C16C 

CAT00170 

OAT0016C 

CATCC19C 

CAT 00200 

0AT0C21C 

CATOC220 

0AT0023C 

CAT30240 

CAT0C25C 

0ATCC260 

CAT0027C 

CAT3C28C 

CAT0029C 

CAT00330 

CAT00310 

CAT 30320 

CAT0033C 

CAT0034C 

CAT 00 3 50 

DAT88368 

CAT00370 

CAT:C38C 

CAT0039r 

CAT0C40C 

0ATw04lv 

CAT0O42C 

DATC043G 

DAT0C44" 

CAT 0045 w 

0AT:046C 

0AT7C47' 

CATC048C 

CATCC49w 

CAT X53' 

CAT 3w5iO 

CAT3U52C 


A-39 


* 


0*3113 S975e531574d0«Cl 
■ “a.'3l9674251285l9720>01 

0* 32772 j4CS13135lOOKl 
0* 3349SS5374C64<}330«>01 
DATA FSl 2/0*341777146601885501 »0*345092953 
« C*348127953C5349640»n 

* 3*35409943255438^70»Ol 

.. .™. ~3;^3597343531893U30^C1 

9*365C686348393814U» 31 
0* 3731327374 j3484C0^31 
0* 374952 7141 746802D«>01 
0*37S5S1322e4275630401 

* 3*38394715dl3845680«>01 

* r*36dI58l5131625820*:i 

* 0*392198967342788704:1 

* :*39608282857959UD«>u1 

* 3*39982147288427320431 

* 0*40342536896816930401 

« C*4v69C38928841l600401 

-mo " 


31573758461853050401 
32387425128519720401 
3314241)663535470431 
338443813 26655 220401/ 
053496401# 

3511582560836C1504C1 
35695657541153250401 
362437055692313CC4CI 
36 76327 374 ) 348 4C 0 4i I 
372 5717617937 278C4C1 
377276295573029004C I 
381773245:6497850401 
3860''48l76d29248040 4 
39019896734278880401 
39415975165651420401 
39796962133242130401 
401 6396547u24S5C04gi 
40517975495338150401 
40859880813835330401/ 


OWQWAL » 

-VP POOR QUALITY 


.^-Ao 


OAT0053C 
OAT 00 540 
0ATD955C 
OAT 30560 
0AT3C57C 
CAT'rtsa: 
CAT 3C59C 
CAT3C6CC 
CAT wt/6l'. 
OAT SC 6 2C 
CAT3U63C 
CATX64V 
CAT 00650 
3AT03663 
CAT;*'>eT« 
CAT0068C 
CAT0069C 
OAT 007 30 
0ATC071V 
CAT0072C 
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OS/363 FORTRAN H 


INPILSR OPTIONS - NAME* NA INtOPT«02f L1NF.CNT«56 tSIZE«OCOOKt 
50 URCi;EBn>irfN 0 in»T 7 NC 0 ECRtLCA 0 *PAP*NCE 0 IT, 10 «KCXREF 


FUN CTION 006 IN>RKI 

C«*««*«*«***««*«i«P*« 6 «>**«****«**«*R«*****«AP*«****P<*»**«****tt***»***C 

C FUNCTION ooa EVACUATES THE SIGCAVACUE EOUATICA* MHICH IS ThI C 

r SOuATlON OF TMEnciro5r"FiraetlCT OF ‘THE DERIVATIVES' the c 

C eSSSEC AND NEUMANN FUNCTIONS. THE SIPPCE DERIVATIVE CF J<X) IS C 

C 'AcS>O'KAN0CEO for the HOCLON CVCIKOER CASE* C 

C C 

C***«P-*«**A»****« 6 *P»«*»»» 6 *«**««»A*AA« 4 A**A 6 *****»*«««»« 9 **«*****«*«C 

c c 


! • IWCTCIT R fAC* 8TA=07 F-Ki C-2 1 

( COMMON /EICEN/BETAtBETA3«BETA5 

‘ COMMON' /RaO II /R IN tROUT 
C 

AKN-N/RK ~ ■ 

C USE THE RECURSION RECATICN TO FIND THE DERIVATIVES 

acrBTOBrrKuftKV’ArarAKyNi — * 

CALL BESSEL lN4l»RKfAKJNPl »AKYNPU 
C CHECK FOR THE HOLLOW CVLIKOER CASE 

IF(AIN*£Q*0*0CI GO TO 1C 

" BKtfRKABETA ' *' ‘ 

aKN»N/BK 

C 44^ C " B E S TE L " ! N ya iT VB R J Wf HKYM — ' ' 

CALL BESSEL IN4>lfBK»BKUNPl tBKYNPl ) 

! C EVACUATE eigenvalue EQCATICK 

I 00B»(AKN*AKJN-AKJNPll«(bKN«BKYN-EKYNPll~ieKN*8KJN-BKJNPl)* 

I““rAXN*AKYN-AKYNPir 

return 

RETURN 

END “ ■' ■ 


COBODCIC 

CGB0002C 

0OBOO33C 

COBD0040 

COB-3CC5C 

DOB00060 

ocb'scct: 
C0B0C3BC 
DG60009C 
C0BSC13C 
00B3011C 
COB0012C 
0CB0C130 
0OBO0140 
S060C150 
OOBOC16C 
0OBOO170 
0CB0018C 
0OB0919C 
00600290 
0CB00219 
DOBOC22C 
0CB00230 
C0BS024C 
OOB0O25C 
00B0C26C 
0QBCw2Yw 
DOB0028C 
DOB :0 290 
C0B003C9 
OOB0O310 
0060032* 
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IMPUER OPTIONS • NAN6> NAINt0PT*02tLINECNT*56tSUE«009CKt 

smei7rKne7RdrBTiRooEekfi.cAOtPAP,ACEoiT,ic«NoxPip 

SUAROUTINE FNONST (L»K«I f ISAVEtNtlAfNUMf*#*! 

C “ 

C»»»*»****»»w*»«**»«P*»»»*»»«*»»»*»»»»P»**»*»*****»»****»**»»** 

C Ibis SUBROUTINE SEARCHES TMf IRPtT lA ARRAV FCR Tl-E ‘REXT* 

— c — RfociCSTse VALor. Tffn“Ni pav be either ir the upharcs 

C (DECREASING SUBSCRIPT) OR OCkKiiARDS UKCREASINC SUBSCRIPT) 

c oiRlctluN* * THE Input ia array is the array cp inoicrs pcr tpe 

C MORAL PREOUENCIeS* THIS RCUTINE IS USP3 IN •PCALCC*t CALLEC 

C BY 4AIN programs *PURT0N* AND «ACOBAN** 

C 

C 

IMPLICIT REAL *8 (A- 0 ,P-H, 0 - 2 ) 

DIMENSION lAU) 

COMMON /ERROR /LA ST 


*“~c jrve'cwftRsriwx 

LAST- I 

C ‘ L'«K LlSS ~T hAN EERO MEANS PROCEED IN OCtoNLAROS DlRECTICN 

IP((L*K)*LT«3) GO TO 3C 

C If OPPOSITE DIRECTION, START AT INDEX LOCATION WE LAST USEC 

C IN THAT DlRECTICN* 

— iFii’;sff.-n rsisffVE — 

KK-I-l 

fP(KK*LT*I) GO TO 15 

C SEARCH PGR MATCHING FIRST TWC (OR CNE) MCCAL INDEX 

C IN UPWARDS DIRECTION 

CO i: II«l,KK 

JiiTK^TTTI — - 

IP( IAU)*NE*999999) GO TO 20 

13 continue 

15 continue 

IF(KK*LT*1*AN0*L. iO*-l) I SAVE-LAST 


RETURN 2 


2' IF(L*EO*-l) ISAVE-LAST 
K-J 


CF CTH2P DlRECTICN 


I-U 

RETURN I 

C OOWNMAROS DIRECTION 

' 

C ’ IF OPPOSITE DIRECTION START AT SAVED INOfcX»l 
IF(L*ED.-1) JJ-ISAVe>l 
IF( JJ*GT*NUM) GO TO 45 
CO 40 IIiJJ,NUM 
IF( IA( II I.NE. 999999) GO TC 5C 

AT'XONTTNOE 

45 CONTINUF 

" TFiJJ.GT*NOM.ANO*L.Ea*-l) ISAVE-LAST 
RETURN 2 

5C ■ I F ( L *Sa^- 1 ) I SA VE-LA ST 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


PNC 0 C 31 C 

PN00002D 

FN 03 D 03 V 

FNOCOCmC 

PNC 0005 L 

FN 03 GU 6 C 

PNOOCD 7 C 

PNOUCwSl 

FNOOwC 9 C 

PN 00 C 130 

PNOoeuc 

FNCjCl 2 C 

FN 0 wl 3 v 

FNC3014L 

FN 0 OD 150 

FNC^wlBl 

FNC 30170 

FNCSOieC 

FN 0 *wl 9 : 

PN 0 CC 23 C 

FNC302XC 

FNDWC223 

FN0..C23: 

PNCw024C 

PNDCC25C 

FN0D*w260 

FNDC027C 

FNC0028C 

FNCD029C 

FN03D2C3 

FN0C03U 

FNo:;32'* 

FNCC0330 

FNC0u340 

fno;.: 35 : 

FNC0036C 

FnDwC 37 w 

FND3C38; 

FNCCC39f' 

FNC304CD 

FNc:;4i: 

FNDC342: 

FNC0U43', 

FNC0C44: 

PNC3C45U 

FNCC346: 

FNC0W47V 

FNC2C48C 

FNC3C49w 

FNC305C-C 

FNCwCSi.:' 

FNCCC523 


! 

i 


A-42 


ORIGINAL PAGE IS 
OP POOR QUALITY 


K*-lt 



FNOOCsac 

FH09wS4d 

FNCSCSSu 

FN00096W 
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llMPItSU OPTIONS • NAMC* NA|NtOPT«02tLlNCCKTa5AtSUE*COOOK» 

5injKCT7r«zimr;N0tTn ;>«ooecii ;tc ao . pap , nce o it . lo ♦ ncx p ip 

SUBROU T INI PNONXT tL»R#l •lSAVEfNtlA»NUP**t*l 


I C»****»»»»****«**»***<*»***»*»P»**»»******»******»»»**»**************C 

i C THIS SUBROUTINE SEARCHES THE INPUT lA ARRAY PCR THE 'NEXT* C 

i r iI13uim6"VALUK' WS'TiPW either in the UPHARCS C 

C (DECREASING SUBSCRIPT! OR OOHKwAROS (INCREASING SUBSCRIPT! C 

c “ifRrcfldN;: “The input ia array is the array cp indices pcr the c 

C HOOAL PRSQUENCIES* THIS ROUTINE IS USED BY PAIN PROGRAPS C 

C «^URtdA'*“AND •ACOBANU C 

C C 

‘C«*«iE*«%iVOT7AVTiv«mr«nr*v*«4i*‘***A***««*«**********p****Rpp**«*«»«»*c 

c C 


IMPUCIT REALPB (A-OfP-H»C-Z! 

DIMENSION IA(1! 

COMMON /ERROR /LA ST 

I WvFTOWIJrTSiBrx 

LAST*1 

C i*K LESS Than zero means proceed in OCWNWARDS OIRECTICN 

IF((L*K!«LT*J! GO TO 3C 

IP OPPOSITE OIRECTlONt START AT (NOEX LOCATION HE LAST USEC 

IN that direction* 

IFiL;R*-l» I*ITA¥E^ — 

KK- I-l 

IP(KK.i:r.l! GO TO 18 
C search for matching FIRST ThC (OR CNF! MCCAL INDEX 

C IN UPUARDS DIRECTION 

DO U II«ltKK 

j Si c ir <= 7 Tig I • 

ITST»IA(JI/10C0 
IF( 1TST*EQ*N! go to 2C 
IC CONTINUE 
15 CONTINUE '* 

IF(KK*LT*1*AN0*L*EQ*-1! I SAVE*LAST 

ffbTDRFrZ - 

C IF OPPOSITE DIRECTION SAVE INDEX OF CTHSR OIRECTICN 

20 IF(L*EO*-l) 1SAVE«LAST 
K«J 

r*j 

RETURN 1 

~ X roiWwJRflJS" DTRECTTON 


30 JJ«U1 

C IF OPPOSITE DIRECTION START AT SAVED INDEX«>1 

IF(L*cQ*~l! JJ«ISAVE^1 
IF(00*GT*NUM! 60 TO 45 
DO 40 II»JJtNUM 

ITST-TAIIIl/lO'J'J “ 

IF( ITST*EU*N! GO TO 50 
40 CONTINUE 

45 CONTINUE ORIGINAL PAGE Q| 

if(jo*gt*num*ano.l*eq*-ii isave«last of poor QUALIIY 


PNOOOUIO 

PN00U02O 

PNOCOdSO 

FN00004D 

FNOOCC5C 

PN00006C 

PNOOCC7C 

FNCuCSBC 

PN0?0(!9C 

PNOOOIDC 

FNOCCllC 

FN0CO12C 

FN00013D 

FNC7014C 

PNOOOlSd 

PNOOCIBC 

PNC00170 

FNOOOISC 

FN0CC19C 

PN0CD20C 

FN00C21D 

FNC0C22C 

FN0D0230 

FNCCC24C 

FNCCL25' 

FN0CC26C 

FNC0027C 

FN0CC26C 

FNCCC29C 

PNC 90300 

FN0CC31C 

FNCTC323 

FNC0033C 

FNC0G34C 

FNC0035C 

FN0Dv3o9 

FNC0D37C 

FND00380 

FN0Cw39D 

FNCD04DC 

FN0C-?4ir 

FNC0042C 

FN090430 

FN0::44v 

FN00045: 

FNCGC46C 

• NC0047: 

'NC9C48C 

HNC3049C 

FNCCGS^t 

FNCDC51-: 

FNCD052C 
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RETURN 2 

55 ■ I n c; Eij;= ir i s^vF^nir 

K*-II 

■ -liij - 

RETURN 1 

’EnB 


ENCC0E3C 

ENOOC540 

EN05C55C 

EN05056C 

FN00057C 

PNCCC58*^ 
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]FPILSR OPTIONS - NAHC* MAINtOPT«02#».lN6CNT*56fSt iE-COCK# 


5 JURCF78 OTTCTRCt rSTT NCOE C K , L C AO # PA P , NCeO IT , 1 0 . NCX R IF 

SUBROUTINE FRSFND CA*NSUEtK) 

c ■ c 

c********V*«***^ 

c $ 

C THIS ROUTINE IS USFO TO FIND THE HCOAL FRfiCUEKCV IN THE INPUT C 

T AffH *r r-lT’T^OlieRTrAII Y^LCSS S T Tu the exterior exCITATiCN c 

C FREQUENCY* THE VALUE RETURNED IS THE INDEX CF THE LCCATION C 

C IN THE ASSOCIATED INUtClES ARRAY* THE RETURN VALUE IS GIVEN C 

C A NEGATIVE SIGN IF THE NEXT CLOSEST VALUE IS IN THE UPMARCS C 

C DIRECTION (DECREASING SUBSCRIPT! OR A POSITIVE SIGN IF THE C 

C NEXT CLOSEST VALUE IS IN THE DCWNnARDS OIRECTICN (INCREASING C 

~c STTBSCWTr; " c 


implicit REAL*8 ( A-0 *F-H ,C-Z) 

DIMENSION A(l! 

CTJHTOTTTFlTEvJ/TSSlO 

C 

C NUM* CLOSEST EVEN NUMBER TC NSIZE 

NUM»(NSIZE/ZI*2 
C SEARCH TnO AT A TIME 

00 10 I«ltNUM,2 

n;G T *ES Q;gND^TTT»ir;3T. XSC! GC TO ic 

C IF the criteria is satisfied the first tire START 

c AT The top of the array 

IFd.EQ.l) GO TO T: 

C FIND CISTANCZ TO FREQUENCY (1) 

TST1«0A6S(WSU«A(! II 

— immTGTviisai — ot'toec " 

GO TO 20 
10 CONTINUE 

C START at BOTTCM OF ARRAY 

GO TO 80 

c find distance to frequency belch 

IF(TSTl-TST2l AO.SCtSC 
C find distance to FREQUENCY ABOVE 

2j TST2-0ABS(WSQ-A( I + lll 
IFITST2-TST1I ACtTOtTC 
C DEFINE INDEX AND SIGN 

“40 K»-“I ' 

RETURN 
5C K-I-1 
RETURN 
6: K»-(i»ii 
RETURN 

T^ncii 

RETURN 
ED X*-NSIZE 
RETURN 
END 


pRsooei*: 

FRS0002C 

FRS00C30 

FRS 00040 

FRSOOw'SC 

FASCCC6W 

FRSCQL7C 

FRS0Q08C 

FRS00095 

rRSOwlJC 

FRSOOIIO 

FRSC:i2C 

FRS jul3Ci 

FRs:oi4: 

FHS00150 

FRS30I6C 

FRSDC17*; 

FRS0018C 

FRSQC19C 

FRS:023v 

FRSOwZIC 

FRS0022C 

FRS0023- 

FRS 00240 

FRS 00250 

FRS0C26C 

FRS0C27C 

FRS 30280 

FKS0C29C 

FRSCU300 

FRS3C31C 

FRS0032S 

FRS:w33C’ 

FRS3C34C 

FRS0C35C 

FRSC-vDoC 

FRS3C37t 

FRSC0380 

FRSCC39C 

FRS 0043.* 

FRS3041C 

FRSS342: 

FRSGC43: 

FPSG044: 

FRS X 45: 

FRS 00463 

FRSUJ47 J 

FRSC048C 

FRS3049C 

FRS305CC 

FRS3C510 

FRS00520 
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JMPILCR OPTIONS - NAHC* NAINtOPT«02tLINECNT»56 iSUE»OOOOKi 
... “'“'S50Ri:f;e‘BC0It#NdCl5r,N00FCK#LCA0#PAF,NCE0ITtICtNCXBEF 


FUNCTION QAHA <N,1P| 

c C 

c*«**»««»««****«««»««*******«*««*«**«««**********p*****««*«»**«******c 

C c 

C THIS FUNCTION CALCULATES THE ACCEPTANCE FUNCTION BETHEEN C 

“ C “StftuCTmrMUDE'lP and acoustic node P. c 

c C 

C«****«««»«*****«**«*««P«****«*««««««******P****«**«**«*«*<*«****»****C 

C c 


IMPLICIT REALAB « A-O.F-H.C-ZI 
COMMON /CQNST/PI 

“CORMOfr“/TERMS/RATIOfSEGLTH.PICYLt20*PICYL2f PILSC.PISEG 
C 

RATM-HARATIO 

C CHECK FOR SPECIAL CASE OF INDEX CCPBINATICN 

IFIOFLOATUPUEO.RATNI GO TC 10 
RATMPI«RATM*PI 

ppHRAFrCYI 

F2-IPAP1SEG 

FIF2-FZ-FI 

FRONT- 1.00/1 2.00AF 1F2I 
FRNT-l.OC/I 2.0CAIFl*F2l I 
ARG3-F1AZ0 

AFGTiAR'GT ' 

F3-RATMPI4-ARG3 
ARG2-IPAPI-F3 
ARG4-1P*PUF3 
TSTANG-DABS(ARG1-ARG2I 
ANGUM-OMOO( TSTANGtP I *2.001 

_ - " -TFrANGUMirTSI.Cr-r.0R.(2.0SAPI-ANGUMI,LT.l.D-2IGC TC 20 

GAMA-FRONT*lDCOSIARGl)-OCOSIARG2n»FBNT*tDCCS(ARG3l-CCCS(ARG4») 

RETURN 

10 ARGl-IPAPISCG^ZO 
SINO-DSIN(ARGl) 

IFIDABSI SINDULT.1.D-2)G0 TC 2C 

GSWAA-SEGrTHASTNU AriOT " " ' 

RETURN 
2? GAMA-C.DO 
RETURN 
END 


GAMOCOld 
GAM00C2C 
CAM3?C3^ 
GAMOOO<»C 
GAMC005C 
6AM^a<'6v 
GAM0007S 
GAMC0080 
GAMw0w90 
QAMOOIOO 
GAMOOliC 
GAMC012C 
GAH00i3C 
GAM 00140 
GAMC0150 
GAMC3160 
GAMC0173 
GAHGOlBr 
GAMC019C 
GAM0C200 
GAM0C21O 
GAM0C22C 
GAM0023C 
GAM00240 
GAM0C25C 
GAM0C26O 
GAM0027C 
GAMC028C 
GAMCC29C 
GAM00300 
GAM0031w 
GAM00320 
GAM00330 
GAM0C34G 
GAM0035G 
GAM0G36C 
GAM0037C 
6AM0U38J 
GAMC039C 
GAM0040C 


OS/360 FORTRAN H 


( 
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i^MPUER OPTIONS - NAME* MAIN«OPT«O2tLlN£CNT»56tSIZE«0C30K, 

. SOUfnr£ 7 c 6 C 0 T<r 7 ^OClsr»NGDECRtl.CA 0 tMAPtNCE 0 IT»I 0 «NOXREF 


SUBROUTINE HSQMNB ( ta2MNS«lNORDtMtN«HCTHR»H2PNSt*l 
C “ C 

C***mm*mwMMm*m*m*** M*mmm*mm*M0M**M*m***ww*m**0mc 
C ■ C 

C This ROUTINE calc ulates THE ACCtSTICAL MODE APPI.IF1CATICN C 

C“ FUNCT ION ^QUAREOn NTEGRAfC'D' OVER' A BANCta! OTH* THIS ROUTINE C 

C IS USED RV MAIN PROGRAM 'ACOBAN** C 

C C 

C««»***«*«**«*»*P*****«***«**»*P*«*«**««««**«*«*«**»«»*««**«*««««*»**C 

c c 


implicit REAL*e C A-DtF-H,C-ZI 
■ CJl^rtON 7ACO'AMl»/SC0A.*<AfACDAMB “ 

COMMON /8SSQR/B2 
CCMMON /CONST/P I 
COMMON /FREQ/HS4 
COMMON /normal /OENOM 
COMMON /RAOIl/RiNtROUT 

Common /vrblTTpK ol i n2 # aO daC o 

COMMON /S0LNS/SNK1400I tKNSUCOI tNLMK 
COMMON /0TH£R/R0THR(4) tZOTHR(4) tCVLNTH 
ClMcNSlON H0THRI4) 

C 

C FIND MATCHING EIGENVALUE 

N§s «QT)TI « ? I 

OO 1C I«ltNUMK 
IF(KNSm«EQ*NS) GO TO 2C 


HSQOOCIC 

HSQaC020 

HSQ70C30 

HSQCOC4C 

Hsaooosc 

HSUOOwbC 

hSQjOCTC 

HSQ0CJ8C 

HSG00C9C 

HSQCCIjC 

hSCCwUC 

Hsaowi 2 C 

hsq:u13: 

HSGC014C 

HSQC0150 

HSQC016C 

HSU0017C 

HSQ00180 

hS40019C 

HSQC0200 

HSQ00210 

hSQ0w22«. 

hS00023C 

HS40024C 

HSQ0023C 

HSQCC260 


I-' CONTINUE 

MRITE(6.200C) 

20CC FORMATC IX, 'MATCHING EIGENVALUE INDICES NCT 

rrrwTCFPTTT 


HSaOC275 

HSQC028C 

FCUND FOR REGUESTEC COMHSUO:29.: 

HSQ003CC 


RETURN 1 
20 SQN*N*N 
SM«1. 

IF( IWORO.LT.13CDCO?) EM*2. 

EN»U 

S4ETA«(ACDAMA««2/(2*0C*Pll**(2«C0*AC0AMe) )*H2MNS*«(1*00«>ACCAMB) 
TERM«DSURT( SQETAI/Pl 


HSQ00310 
HSQ0032C 
HSQv033 • 
HSQC054V 
HS00035C 
HSQC: 36 'i 
HSQ0337C 
HS40338C 


SNKNUk«SNK( D/OENOM 
IF($NK(n.EQ«0*DC) GO TO 33 

C NORMALIZE EIGENVALUE FOR CUR USE 



0 IV«$QN/ ( SNKNCR*SNKNOR ) 

C NOTE THIS EXPRESSION TAKES CARE CF ITSELF FCR 

C THE HOLLOW CVLINOER CASE 

ACEMO»EM*£N*PIOL4*((82-OIVI •G8-IPIN2~CI VI *QSC(N,SNKKCR,RIM I 
h2MNS«46/UGEM0*TERMI 

’513 TO 5C ■" "■ - - - - 

2C AGEM0«EM*FN*PI0L4*I62-RIN2I 
C NOTE CANCELLATION OF THE QSQiOl TERM 

H2MNS» l.DO/ C AGEMO*TcRM I 
DO 60 IDX*I,4 


hSG::393 

HSGwCAC: 

HSQ-:041C 

HSQ:042C 

hS0:043C 

HSQOOAAw 

hsa ;*.45 

HSQCC46: 

HSQ0C47C 

HSw 30480 

HSUC349C 

HSQ00500 

HSuDvSlC 

MSG 30 5 2C 
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RaROTHRilDXI HSCOOSS;^ 

T^TOTHftnCTxi hS<53C540 

HOTHRI IDX}«H2MNS*(DCOS(PI*M*Z/CVLNTHn**2 HS^C^iSSC 

l/A(>cMO HSQO;S6C 

!F(SNK| n.NE.C.OOHaTHPI I3X)«HCTHRIIDX} *QSQ(K«SRKNOR»R) HSQC0S70 

60 continuf hsooosac 

RETURN hSOOOS'J? 

*” mi) • HSQCC60C 
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0S/36J FORTRAN H 


MPILER OPTIONS • NAME* MAINtOPT*C2 f Ll NECKT-56 .SI ZE-OCOCKt 

5iJURCg‘.EHC3TC“.T40LIST.NCDECK,LCAC.FAP,NCS0IT,IC.NCXR|F 
SUBROUTINE HSQMNS ( N2HNS. I I»CR0.M.N»HCTHR»H2FNS.«I 


THIS ROUTINE CALCULATES THE ACOUSTICAL HCOE AFPLIFICATICN 
■■FaNCTn3N"5i50ARWr 'THrS ’ROUTINE IS USED BV RAIN PRCCRARS 
•purton* and *STRBAN** 


implicit REAL*8 IA-O.F-H.O-21 
“C0W«tJ^“7SajAWACDAMA,ACDAMB ‘ 

COMMON /BSSQR/B2 
COMMON /CON ST /PI 
COMMON /FREQ/taSU 
COMMON /NORMAL/OENOM 
COMMON /RAOII/RIN.ROUT 
"“COMMON 7VRBLS/P lOtA .R IN2TAC DACC* " 
COMMON /SOLNS/SNK(A;»0) (KNS(43C) »NUHK 
COMMON /0THER/R0THPI4) .Z0THR(4) .CYLNTH 
DIMENSION H0THR14) 


C 

C 


FIND MATCHING EIGENVALUE 

TisiTMcnnTRDinr.Tcootcai 

DO 10 I-l.NUMK 
IF(XNSin.EO.NS) GO TO 2C 


EIGENVALUE INDICES NOT FCUNO FOR RECUESTEC 


1** CONTINUE 

WRITECE.230CI 
2?C0 FORMAT! IX, 'MATCHING 

"IBTINATTONrr/l — 

RETURN 1 
20 SQN«N*N 
EM«l* 

IF( iWORO.LT.iaCOOOCI EM*2. 

EN-l. 

TFTTTiTQ'^TJT’ENS?, 

SQETA«0«00 

IF<h2MNS«EQ«0.00) go to 40 

SaETA»(ACOAMA**2/C2.D0*PI)F*I2.C'?*ACDAMBn*N2MNS**ll,0-:*ACCAMei 
4C TSRM-lH2MNS-wSQ)4*2+SaETA*WSQ 
SNKNOR*SNK( Il/OENOM 

1 F rsNR rrr.EQ.ciffci gd'td”it 

C NORMALIZE EIGENVALUE FOR OUR USE 

Q a* 0 SO ! N , SNKNOR , ROUT ) 

0 I V« SON / ( SNRNCA * SNKNOR » 

C NOTE THIS EXPRESSION TAKES CARE CF ITSELF FCR 

C THE HOLLOW CYLINDER CASE 

a'G EWO » E Y r » E N »P 1 0 L 4 «T *CB- TRINT-D IV}«QSC(N,SNKNCR.RINn 

H2MNS»U8/(AGeMOWTERM| 

GO TO 5C 

*0 AGEMO«EM*£N*PIOL4*<82-RIN2» 

C NaTE“X:ANCELLATION OF THE QSOt:i TERM 


hSQOOOlC 
C HSUC002C 
•C HSUJ003C 
C HSQ0U040 
C HSQCC05C 
C HSOGOOBO 
C HSUC0C73 
C HSQGCC3C 
■C HSGJC09C 

c hsqouid: 
Hsgsciic 

HSQ0J12C 

HSQC313:- 

HSQCCI4C 

HSQ0015C 

hsq:ci6: 

HSQ9017C 
HSQC018C 
hSQ)Cl9: 
HSU00200 
HSQ00210 
HSQ3C22C 
HSu0w23C 
HSQC324C 
HSUGC25C 
HSQ00260 
HSQ0027C 
HSU9028C 
C0MHSCCJ29C 
HSQ0030C 
HSU0C31C 
HS0CC220 
MSQ2v33: 
HSQC034T 
HSQ0U35O 
HSQ:C36* 
HSQ:037C 
HS03033: 
Hsa:-39: 
HSQCC4-‘'0 
HSQCQ41D 
HSQOCAZ: 
HSU2343C 
HSQ0044C 
HSQ3C45: 
HS00046C 
MS3J047; 

HsaccAs-: 
HSQC049C 
HSQC05JC 
hSw3051: 
HSG0C52U 
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H2MNS»l>DO/tAG»;MO»TERMl HSQ3053C 

to 60 * HSOC0540 

R»RO ThMIDX) HSOOOSSw 

2«ZOfHRTiFxr" "■ MSGOC56C 

H OTH RnDX|«M2MNS»IOCOS<PI»M»Z/CYLNTHn»»2 HS00057S 

'“1/AC6M0"' ' HSQ30580 

IF<SNKni«NE«0#DCI HOTMRtlO Xl«HOTHR(lOXI*QS6<R*SNKNCPtRI HSa00590 

eC CJNtiNUE ■“ HSaX63i 

RSTURN HSQiOAI? 

■ ’SNO " MSWJ3fe2C 


u u o;u o o u u U|0 
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MPILCR OPTIONS - NAM6- MAlNtOPT*C2»LlNeCNT«56 tSlZE«OCC jK» 

SSURCSrcdtlS^rCT^n'SrVNCOECKtLCAOtHAFtNCEOlTtlOtNCXREP 

(NfNTHfAMNl 

■ c 

THIS ROUTINC LSSS THE FIRST FCtR TERMS OF THE ASVPFTCTIC C 

sSrics NfTH0o^O6veCQ»*Et 6v mCmAHcn'to find the eigenvalues c 

OF_THb OEM VAT IVES OF THE CROSS PRODUCT CF THE BESSEL AND C 

N'EUHANN FUNCTIONS* THE SECOND HALF CF THIS RCUTINE USES THE C 

FIRST FOUR TERNS OF THE SERIES FOR THf! DERIVATIVE CF JCXl* C 

^ 

■ " ■■ c 

IMPLICIT REAL«6 U-0*F-Hf C-Z) 

COMMON /CONST/PI 
COMMON /EIGEN/BETA f0ETA3f6STA5 
Common ~/RA o I I /R IN t ROUT 

“IFTTOTOT) j-NTffn - — 

RM»4*00*N*N 
RMTuiRMi^Z ■■ 

RMCUe»RMS<J*f<M 

C Check FOR The H03.L0H CYLINDER CASS* 

IPCRlN«£g* 0«DOI GO TO 10 

RKS TNTHAPT f/TBETA- UOTl ‘ 

Cl»(RN^3*00)/f 3*00«8ETAI 

C 2« A* C^* ( RM SQ+46*D C*R M- 63* D 0 ) * C BETA3-1 . CO I / 

1 (l536*DC*BETA3*(BETA-l«0Cn 

C3»32.DC««(RMCU3«-l85*DC*RMSU-2353*00*RM«-l899.C0l*(8ETA5-l*CC 1/ 

1 U*636605»BETA5«(BETA-l*D0n 

ci 3 qRCi« n - 

C1CUB«C1SQ*CI 
RKCU8*RK*«»3 
RKF 1F»RKCU6«RK*RK 
TRM3*(C2-CISQI/RKCUB 

TRM'»«IO4*0C*Cl*C2»2*00*ClCU8l/RKFIF 

jjjji^fjVRITfCi/RK ♦TR.'H^ TRH A ‘ 

RFTURN 
IC J-NTK 

C ZERO IS THE ZEROTH SOLUTION IN THE HCLLCH CYLINDER CASE 

C ONLY FOR N*0* THEREFORE RE-ACJUST THE SCLUTICN NUMBER* 

RK»PI*(2*N»6*J>1I/4*0C 

RXCDBSITK»^3 

RKF IF«RKCUB*RK*RK 

TRM3»4*00*< 7*OC*RMS0^82*OC*RM-9*OOI/C1536.D?*RKCUe» 
TRM4«32*0C*I83*0C*RMC UE»2075*0 J*RMS<i-3039*0C*RM*3527*CC 1/ 

I (4*9152D5*RKFIF) 

XMN»RK-CRM»3*00)/(8*00*RK)-TRM3-TRM4 

RTTDRTJ - 

PNC 


MCMOOCIC 

MCM0:**2C 

MCM0JO3C 

MCMCC04C 

MCM'C;5C 

MCM3C36C 

MCM0CC7C 

MCMOwC 8L 

MCM0C99C 

MCMCOlUO 

MCMJCli: 

MCMOOU? 

HCMC0I3C 

MCM0014C 

MCMCClSw 

MCMC0160 

MCM^^017C 

MCM00I80 

MCM0019: 

MCMC020C 

MCMCC21: 

MCM3022: 

MCM0023C 

MCMCC24C 

M CM 00 2 SC 

MCMC0260 

MCMCC27: 

MCM00280 

MCM3029<* 

MCMC023C 

MCM0031C 

MCMCO 22 : 

MCM')w33i, 

MCM3C24C 

MCM 00350 

MCM3C36: 

mcm:o37: 

MCM 30330 

MCM0C39C 

MCMw34D: 

MCM30410 

MCM0342C 

MCM 7043 • 

MCMCC44C 

MCM0U45V 

MCMC346* 

MCMCC47: 

MCM3348: 

MCM0049C 
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RPILSR OPTIONS • NAME* MAIN»OPT*02t Ll NECNT *56 tSUEOCOOKt 
— 50«WCr7BWC:0ir#N0Lrsr,NC0ECK,LCAC#MAP,N0E0IT,IC.NCXPEF 


SUBROUTINE MNCALB (M»N) 

c ■ * ■ C 

C***««««**«*««*«««***««**«**«**««»****«*«««««**«««*«*«**«***»««**««««c 

c c 

C THIS IS The subroutine that keeps track CF the CUMULATIVE c 

C' "”T0tSr f7rfT?ri.lMT)VER~TMr^^^ N MCDAL INOICIES. c 

c c 

c c 


Implicit realms (A-OtF-H,c-z) 

common /OIR/ISAMEtICPP 
1:0MMCN"/FRR0R/LA5T 

common /FlNAL/GRNOPPtGRNTOTtBlGSLPtBGSMTU) »SPGTCT(4) 
common /FREG/'mSQ 
common /stop/vcrit 

COMMON /TABS/ISAVE»MNDlRtK 
COMMON / TOT AL S/ STOT tP TO T . SP TCT ( 4 1 

^TnjrMOKrvA'(rusTK?scMO£)sr8000i ;>nsi8goci inumac 

DIMENSION BSPR0(4ltSPC0SS(4) 

C 

C COMBINE *P* AND *Q* SUMS 

PTYMS*PTOT*STOT*WSQ 
CO 60 I0X*lt4 

— ETTS P i Tc nc XT * s yTOTnnyxT*FTOT» vso " 

C calculate THE CONTRIbUTICN 

COSSUM-PTYMS 
00 7w I0X«l,4 
Vi SPCOSSirOX)*BSPRD(IOX) 

GRNT0T« 6IGSUM4C 0SSUM „ 

83 SPGT0T(I0X)*BGSMTC IOXI «> SPCQSSI I DX) 

BTGSUM*GRNTOT 
00 90 I0X«1,4 
90 BGSMT(rDXI»SPGTOT(IOXI 
RETURN 

- 


MNCCOOlO 
MNC.'032: 
MNC0C33C 
MNCJCC40 
MNC0005C 
MNCJOwb: 
MNC0CC7C 
MNCCw08C 
MNCC 9*rf 
NNC3010C 
MNCCC'llu 
MNCCC123 
MNC 30133 
MNC0014G 
MNC:C1SC 
MNCOC160 
MNC0017C 
MNC3C18C 
MNC3C19C 
MNC0023C 
MNC0021' 
MNC0022C 
MNC0U230 
MNC3324: 
MNC3025C 
MNC3C26C 
MNCGC27: 
MNC0028C 
MNCCC293 
MNCOOS-IO 
MNC3C313 
MNC0G325 
MNC0C33; 
MNC00343 
MNC0035C 
MNCC036-3 


: JUN 7 ^ I OS/ 36 ; FORTRAN H 

]. 4 P 1 l;R options - name* NAlNttiPT*r 2 ,LINECNT« 56 tSIZE«COOOR» 

^“SCORaTfBtOrc 7 NOLlST,NOOECK*LCAO.HAP,NCSOIT#IOfNOXPfF 

SUBROUTINE MNCALC CMtNt*) 

C 

C«««»****«**«*«*««**«**»***»«»»*«* 6 *««*»*»*A««**«**«*«««««A»***«***< 

c 

C THIS IS THE SUBROUTINE THAT KEEPS TRACK CF THE CUPULATlVc 

■ C 7 DTAiniT|-rHE’"SuH over THE M AND N MCOAL INOICIES. THIS 

C ROUTINE IS USED BY MAIN PROGRAH •PUTCN** 

C 

c 

IMPLICIT REALM 8 I A- 0 #F-H#C-il 

— ^caHftON“/crn» 7 isAMe;iopp ~ 

COMMON /ERROR /LAST 

COMMON '/FINAL/GRNOPPtGRNTCTtBIGSLPtBGSMTCAl .SPCTCTUI 

COMMON /STOP /VCR IT 

COMMON /TABS/ISAVEtMNOlRfK 

COMMON /TOTAL S/ST 0 T#PT 0 TfSPTCTI 4 l 

•' C 0 H?rar”/XCUSTKAACMOO 51 B 3 C 3 » »PNSC 80301 tNUMAC 

DIMENSION BSPRO( 4 )tSPCOSS( 4 l 
C 

C COMBINE *P* AND * 0 * SUMS 

PTVMS«PTOT*STOT 
00 63 10 X»I »4 

?TffSRinrrTFXTrSFTOTrT!JXJ*PTCT • 

C CALCULATE THE CONTRIBUTICN 

COSSUM-PTVMS 
00 7 C I 0 X*If 4 
T) SPCOSSnOX)«BSPRO(tOXI 
C SOM TO GRAND TOTAL 

-■Z ’TF' TERM TQUATS“2£RO"rCNOPE IT 

1 PIC 0 SSUM«EQ* 0 * 00 I CALL NXTHN ( I SAME t C 4 C »C 5 C} 

GRNTOT-BICSUH^COSSUM 

OQ 80 IDX«l »4 

60 SPGTOTl lOXUBGSMTI TDX}-*>SPCOSSIIOX} 

C CHECK CONVERGENCE OF MN SLM IN ONE DIRECTICN 

j-p( ( aTG’SOH/GRNTOTT^'GT.-VCRTTJ GC TC 20 

BIGSUM« 6 RNTGT 
1)0 90 I 0 X»lt 4 
S 3 BGSMTC IOXJ«SPGTOTUDX| 

C FIND NEXT CLOSEST *MN» FREQUENCY SAME DIRECTICN AS LAST IF 

C THE CONTRIBUTION IS GREATER THfeN THE CCNTFIBUTICK FhCM ThE 

— C L‘ArrTErrTN“THE“OFPOnTF DIRECTICN 

IFiCOSSUM,C 1 «GRNOPP» CALL NXTMM I SAME tC 4 : 1 65 M 
C REDEFINE OPPOSITE TERM CCNTR 18 LTICN VALUE 

GRNOPP«COSSUM 

GO TO 33 

2'^ BIGSUM-GRNTOT 

CO ICC lDX*li'4 • " 

IGw 3 CSMT( lOXUSPGTOTdDXI 

C CHFCK IF CONVERGENCE HAS CCCURREO IN BOTH DIRECT ICNS 

25 IP(GRNUPP.FQ*-I« 0 :i RETURN 
C ■ rNSURF SUM WILL CONTINCr IN DIRECTICN FCF WHICH 


original page 

OP POOR Qu,*,’ 


'Tv 


i 




MNCC7CU 

NNCCU020 

MNC03C3C 

MNC^CH* 

MNCDD-OS: 

MNC3CC6C 

MNC3D37C 

MNCwCCBC 

MNCC3«»s: 

MNCX133 

MNCDCUC 

MNC3012C 

MNC3wl3w 

MNC3C14C 

MNC 3LI50 

MNCwwX6C 

MNCDuITc 

MNCS018C 

MNCbltI9C 

MNC0C23C 

MNC 33 2 ID 

MNC0022: 

MNC0C23C 

MNC3C24C 

MNC0025C 

MNC3026C 

MNC3C27. 

MNC0323C 

MNC3C293 

MNCOU33'-. 

MNCG031-3 

MNCC032': 

MNC3333C 

MNC:034' 

MNCC3S5: 

MNC 30 3 6w 

MNC 30 27. 

MNC3C2aC 

MNC0039C 

MNc:s 34 ;: 

MNC 3041 I 

MNC 30420 

MNC;*43 

MNC0044C 

MNC3345t 

MNCC046: 

MNCC347i: 

MNCCw48C 

MNC0-:49w 

MNC*iw5C«: 

MNC'jOSI. 

MNCCC52W 


C CONVERGENCE HRS NOT YET CCCyRREO 

5RWJ^FS=T.K ' 

C FINO NEXT CLOSEST *NN* FREQLEXCY CPRCSITE CIRECTICN FPCP LPST 

~fO IJiCT nopp # C4^ 

RO RETURN I 

50 'CONflNUC ■ ■ 

GO 70 25 

m ■' 


MNCO0S3O 
HNO0543 
MNC30S5C 
MNCOOS6C 
NNC0057J 
MNC 30583 
MNC3459: 
MNCC063C 
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i:MPlLFR OPYICNS - NAME* MAlNt0PT*w2*LIN£CNY*56tSUE*C090Rf 
, ~S£raiTCf t*cBCT)IC tNOLl ST .NCOfeCK ,LCAC . MAP t NCEO IT # 1C t NOXP EF 


I subroutine MNSUM IMtNf IPtlQt*! 

! c " c 

k c*«**«****«»««*««****«»*««**»»****»******««*******««**««««*«**»*****c 

* C c 

> C This IS Th£ SUBROUTINE THAT KEEPS TRACK CF ThE CUMULATIVE C 

t "c‘ ‘"T0Y4l" 1N~ThE“'S'IM over “THE M ANO N MCOAL INOICIES. THIS C 

I C ROUTINE IS USED BY MAIN PROGRAM *STRBAN>« C 

I c c 

F c«*****«*«*««*«***««««****«****«***«*M***«*»**«*****««*««**«*«*«*««**C 


implicit realms (A-0,F-H,C-2» 

-COMMON 7mR/rSAMEilO?P ■■ ■ 

COMMON /ERROR /LA ST 

COMMON /FlNAL/GRNOPPtGRNTOTtBlGSLP*BGSMT(4) tSPGTCTUI 

COMMON /STOP /VCR IT 

COMMON /TABS/lSAVEfMNOIR*K 

COMMON /TOTAL S/STOTfPTOT.SPTCTUI 

—CrOMMCN TACLSTKACMODSreOOOl .PNSiaOOCI ,NLMAC 

DIMENSION BSPROIAI tSPCOSSUI 
C 

C GET acceptances SQUARED - NOTE CAPGAM IS ALREADY SCUAREC 
PTCT«IGAMA(M«IP)*«2)*CAP6AM(NtIQI 
C MULTIPLY SUM BY ACCEPTANCES SCLAREO 

PTYMT-PTCITASTOT 

CO 60 10X»l,4 

63 8SPROnOX»«SPTOTlIOX)*PTCT 
C CALCULATh THE CONTRIBUTICN 

COSSUH.PTYMS 
00 73 I0X«l,4 

TTSPtos'srToxrAffSPROTixyxi 

C SUM TO GRAND TOTAL 

C IF T5RM SOUAL? ZERO IGNORE IT 

1F(COSSUM,E3«0«OOI CALL NXTMN II SAME tCAO » C5CI 

GRNTOT-BIGSLMKOSSUM 

00 83 I0X-lf4 

ifC“SPirrUT{TOXT^8T;5MTrr3WSPCOSSIIDT{) * 

C CHECK CONVERGENCE OF MN SUM IN CNE OIRECTICN 

IFI (SIGSUM/GRNTOTI.GT, VCRITI CO TC 20 
aiGSUM-GRNTOT 
CO 9C IDX«lt4 
^3 BGSMTl IDX)»SPGTOTIIOX| 

c rrno~NEXT~n:flsrs'r 'MN'^TPEQUENCY samf directicn as last if 

C the CONTRiaUTIOlJ IS GREATER THEN THE LCNTFIBUTICN FRCM Thfc 

C LASTTERM IN TrtE OPPOSITF OIRECTICN 

IFICOSSUM.GT.GRNOPP) CALL NXTMM 1 SAME «C4>: «C5C ) 

C REDEFINE OPPOSITE TERM CCNTRiBLTICN VALUE 

GRNCPP-COSSLM 

ca-TD "33 

23 BIGSUM»GRNTOT 
DO" ICO TO X- 1,4 ' 
ic: BGShTI IDX»»SPGTOTl IDX» 

C "CHECK IF CONVERGENCE HAS CCCURREO IN BOTH DIRECT ICNS 


MNSOOOiO 

MNS9C02C 

MNS30G3C 

MNS 39940 

MNS3C:5C 

MNS0CC6C 

mnscoctl 

MNsccoae 

MNSCCC9C 

MNSC013: * 

MNS3CUL 

MNS0C12C 

MNS0313. 

MNS33I4C 

MNSCOIS^ 

MNSQOiSr 

MNS0C170 

MNS0018C 

MNS3C19C 

MNS0029C 

MNS0C21C 

MNS0U22: 

MNS3023C 

MNS9C24C 

MNSww25C 

MNS:C26C 

MNS:U27w 

MNSS028L 

MNS‘C29C 

MNS0033C 

MNS9C3IC 

MNS3C22- 

MN33C33C 

MNS9034C 

MNSCC350 

MNS3w36« 

MNS:j37C 

MNSccrao 

MNS ?:39 : 

MNSC34CC 

MNSCw4l‘ 

mns::a2' 

MNS jC43. 

MNSCC44': 

MNSC*45 

MNSC046. 

MNSC347'. 

MNS3v48. 

MNS3C49C 

MNSOCSCC 

MNS3''£1. 

MNSOCSZ: 
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25 IF<GRNOPP,FQ,-U OCI RcTCRN 
C SUM Kill CStHflNiiT IH dl ACCTICN FftH WHICH 

C CONVERGiMCS HAS NOT YET CCCURREO 

‘ "G^NW^ 

C MNO NEXT CLOSEST 'MN* PREGLEKCV ORPCSITE CIRICTICN FRCP LAST 

30 CALL NXfMN (iQRPtCAC.CSC) 


40 RETURN I 


GO T0__25 
ITN O ' 


MNS90S3C 
MNSC0543 
MNS30S5U 
HNS 00 569 
MNS3057C 
NNS3C5S0 
MNS 30590 
MNSC060C 
MNSGCaI'^ 
MNS0062C 




> 
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iJM PiLiR OPTIONS - NAHE* i4AIN#OPT-02.LU6CNT»5o fSU€*OCOCK# 


50UTOB7CTCUTCTM0L rST^NCOEC K .'tC AO # PA P , I^CEC H # 10 1 KCX P IF 

SUBROUTINE NXTNN ILf*#*! 

C ■" ^ c 

C»««*«««««*««**«»«**»M****««*»**«***«**«*««*«*««**«*»**«*«»*»*******C 

e c 

c THIS subroutine S PARCMES the ACCISTIC POCE IKClCSS ARRAY C 

~t’ FOR THE •nIxT* tLdlEl5r“vAliK"TS THE EXTERIOR EXCITATION C 

C FREQUENCY JHAN PAS FQUNO THE PREVICUS TIPS THIS SUKRCUTIKE C 

C ~WAS XALL^O* THE "INPUT PARAMETER i. IS NEGATIVE IF THE C 

C SEARCH IS TO PROCEED IN A OIRFCTICN IN THE ARRAY CPPCSITE C 

C from' THE^ tlRlCTtON SEARCHEO THE LAST TIME THE SUBRCUTINE WAS C 
C CALLEC. L IS POSITIVE IF THE SAME OIRECTICN SHOULC BE SEARCPEC C 
^ 

C * c 


IMPLICIT REAL*8 U-OtF-HfC-2) 

COMMON 7ERRCR/LAST 

COMMON /TABS/ ISA VEvMNOIRfK 

TOHTOJT' /ACO STK/ECHOOrreCCffl ,PNSU3C0» ,NUPAC 

C 

C SAVE CURRENT INOSX 

LAST«IABS(MN0IRI 

C less than zero means PRCCEEO in the OCpNPAROS OIRECTICN 

IFIL«MN0IK| 30t3C«5 

C“ OPPOSITE CIRFCTTON"? ' 

5 1FIL.EQ.-1I GO TO K 

C SINCE ARRAY IS SORTED THE NEXT CLOSEST IS THE PREVICUS 

C ELEMENT IN THE ARRAY 

K.MNDIR-1 
CO TO 23 

l2iriTSSVF=T 

C SAVE LAST INDEX BEFORE OIRECTICN CHANGE 

I$AVE«LAST 

C K MUST BE POSITIVE HERE SINCE PE ARE PROCEEDING UPWARDS 

2w MN0IR»K 

IFU.GT.D) RETURN I 

“T5TURN-2 

30 IF(L.EQ.-l) GO TO AO 

C NEXT FREQUENCY IS NEXT ELEMENT IN THE ARRAY 

K«-f lABS(MNDIRI«>n 
GO TO 50 
A? K«-I ISAVEaII 

— nsTE^irr 

C SINCE K IS USED AGAIN AND MCOlFIEOf SAVE 1T*S VALUE 

5* MN0IR*K 

1F( lABS(HNOlR).LE.NUMAC) RETURN I 

RETURN 2 

END 


NXT3C010 
NXT0C02Q 
NXTmLvSC 
NXT OCOAC 
NAT loose 
NXTGGOo: 
NXT0CC7C 
NXTQOOBO 
NXT;C09C 
NXTOOIOC 
NXTQCllC 
nxt;:u: 
NXTOwiaC 
NXTOwlAO 
NXTOvlS; 
NXT0016C 
NXTGG170 
NXT3CX8C 
NXT 00190 
NXT00200 
NXT0021’' 
NXT0022D 
NXT UO 2 30 
NXT002A0 
NXT0C25: 
NXT0G260 
NXT i027i 
NXT0C23C 
NXT TC29C 
NXT 3030 3 
NXT0031C 
NXTOOS2C 
NATQu33t 
NXT3C2A: 
NXT0G35-: 
NXT0C36C 
nxt::37c 
NXT-3028C 
NXTGC39C 
NXT-:.: A3-' 
NXTCOAIT 
NXTCwA2C 
NXT ‘^'^43, 
NXT:3AAr 
nxt:ca5g 

NXT3-:-A6" 
NXT j?A7: 
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j J JUN 74 J . . . _ OS/360 FORTRAN M 

)MPIUSR OPTIONS - NAME* NAIN»OPT»C2f LlNECNT«54tSUE«003CK» 

53DMSr«7nC51CVNOUl Sr,’N006CK * LCAO t MA P , NCEO IT f 10 1 NCXREF 

SUBROUTINE PCALBIKStIPf lUt TOTALLtPCTALLi PCAOCOlO 

C C PCA0002C 

PCAOOOSC 

c “ c PCAC0:4C 

C this SUBROUTINE COMPUTES THE BANOtolOTH STRUCTURAL AMPLIFI- C PCAC005C 

I CATll5ii”F0N'(rriOTrTfIME'5 THE"jOlKT ACCEPTANCE. IT IS USEC BY C PCACJtEC 

C MAIN PROGRAM *STRBAN*. C PCACCC7G 

C “ C PCAOC30C 

C******************* PCA0C09C 
C * C PCAXliS 

IMPLICIT REAL*8(A-0.F-H,0-2I K P LHC 

— CaMi3(fffr;FnWC7URN0PP',GRNT0T,8IGSUM,B6SMTi4l,SPGTCT(4) l» a vl2C 

COMMON/ FRE>j/MSU PCACC13C 

CCMMON /LEAD/ HFTERHtBBB PCA00140 

DIMENSION P0TALLI4) PCA0C153 

' "CALL STAMFB IKS tH2P0tC2) PCACCI6: 

^00»H2PQ*PQjnPtIQ»B8BI*HSQ PCA0017C 

TOTm‘^TlJTATLTPROO*tirGSUM" ‘ PCA0018G 

00 1 I0X>lt4 PCACC19C 

1 POTAL"LnOX)«POTALLUDXUPRCO«8GSPTnOX) PCA902C0 

RETURN PCA0021C 

'2 STOP' 65 PCA:022C 

END PCA0023C 
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OS/360 FCRTRA^ H 


JMPIL6R OPTIONS - NAME- NAlNtOPT«C2,U NECKT«56 fSUE«OOOCK» 

5obRCl#EBCOICf"Nd'LISTiNOOECKfLCAOtMAP#NCcOITtIDtNCXPEF 


SUBROUTINE PCALCC IH,Nt«l 

C C 

C***««PP**«*««»»«««»»«***P*P«P**«»«P«««P**«P»*»**«****P**»P*«»**P**P«C 

c ' ' C 

C This SUBROUTINE P ERFOR MS THE_Sl.M OVER THE STRUCTURAL PCCES. C 

C THIS ROUTINE IS USED bVmAIN PROGRAMS *PURTON* ANO (ACOeAN** C 

C . C 


IMPLICIT REAL*8 IA-0,F-H,0-2» 

COMMON /01R/ISAM6»!0PP 

COMMON /INFO/ INDEX 

CJMMON /SfOP/VCAlf*KC“V 

COMMON /TOTAL S/ST0T,PT0T,SPTCT(4» 

COMMON /sample/tempi 1200) rLPQS(l200) tNUMTMP 

c 

PSUM«C«OC 

__ _ PT0T«0«D0 

KDN-0 

i^P«C 

C "create MINI ARRAY OF SELECTED VALUES 

CALL COPYC (N) 

IPCNUMTMP.GT.OI CO TO ICC 
WRITe(6«30aC) N 

To ffiT FtmMATTIFrornvtrMDDE S FOR N « MS) 

RETURN 

C FIND CLOSEST FREQUENCY TO THE INPUT FREQUENCY IN THIS ARRAY 

ICO CALL FRSFNO ( TEMP ,NUMTMP ,K) 

C INSURE NEXT DIRECTION KILL BE CPPCSiTc 

HSQ0PP«1*D7C 

~~ c ST{rrp~5rG)rFTroM K 

I«IABSCK) 

I SAVE- I ' 

C CALCULATE STRUCTURAL AMPLIF ICATICN FUNCTICN 

1C call STAMFC ( I»M,N»I0,HGAMI ,C5C) 
t- GAM 1«PGAM 1 «CAPGAM ( Nt 1 Q ) 

— rnigff,MT~r;inJ6MA EQUAi:S ZERO IGNORE THAT TERM ANO PRCCEFC 

IF(PGAMUEQ.O.OC) 

I CALL FNDNSTI ISAMSt K, I , I SAVE i Nt LPCSt NUMTMP, €lOt 64C ) 

ptot«psum^hgami 

C CHECK CONVERGENCE IN ONE OIRECTICN 

IP( (PSUM/PTCT)«GT*VCRIT) go TC 6u 

rFr-N.CT.5) KUP^C 

1F(K«LT.C) KDN«3 
15 PSUM-PTOT 

C PIND NEXT FREQUENCY IN SAFE DIRECTION IF THE CCNTRIEUTICN 

C IS GREATER THEN THE CQNTRIbUTICN FRCP THE LAST TERM IN 

C THE OPPOSITE DIRECTION 

rFTFGSMI-;GT;-HSyOPPr ■ 

1. CALL PNONSTi ISAMEfK,! tl SAVE tNtLPCStNUMTP ;>( CIO tC40) 

C REDEFINE OPPOSITE TERM CCNTRIBLTICN VALUE 

HSQOPP«t-GAMI 
GO TO 30 


PCACOCIC 
PCA00C2? 
PCA0033C 
pca:c:4C 
PCA00C50 
PCAOOOpC 
PCA0007C 
PCAQCC3C 
PCA 3C10; 
PCA00115 
PCACU12G 
PCAwyl3L 
PCAC0140 
PCAU015G 
PCAG016C 
PCA0017C 
PCAOOiaC 
PCA0019C 
PCA0020C 
PCAC021C 
PCAC022C 
PC AGO 23** 
PCA0G24C 
PCA00250 
PCA00260 
PCA0027C 
PCA0G23: 
PCA002SC 
PCA00300 
pcAcosi: 
PCAC032C 
PCA0C33C 
PCA0034-: 
PCA0035C 
PCA3036C 
PCA0037C 
PCAC;33* 
?CAC 0 i 9 C 
PCA304C2 
PCAG041: 
PCA;.C42. 
PCAC043r 
PCA3C44G 
PCA:;45'’ 
PCACC40U 
PCAC047w 
pcACCAa: 
PCA3C49C 
PCA0050C 
pCACcsi; 
PCAC0523 
PCAC053C 


A -60 


PSUM-PTOT 

C ""£?ife6K tdNVEA'««ENCr ITTfiO TH’ OIRECTICNS 

25 JFIHSd0PP*EQ*-l»00} RETURN 

C' INSURE' progress tilLL CCNTINUS IN THE OIRECTICN FOR WMCF 

C CONVERGENCE HAS NOT OCCURRED 

NSCOPPi-lVCC 

C FIND NEAT FREQUENCY IN JPPCSITE CIRECTIUA 

Call Wbirsn lOPP't'K”; i ; i sa vstn i lpqs #nuptpp #ac *C 35 ) 

35 K«-K 
4C continue 
CO TO 25 

Sr WRlTSl7»lil)I»MtN,ISAVE,K 

1€I FORMAT! 'ERROR RET FROM STAMFC# M,N*',2I5,' ISAV6«'t 

rr57»'~iri“*Tr5i ' 

RETURN 1 

6C IFCK.CT.OJ GO TO 70 
KCN»K0N^1 

IF!KCN*6E;kCVI go to 2.) 

GO TO 15 

— 73"Kxrp=K‘ifl>Ti — — 

IF(KUP*6E«KCVI GO TO 2C 
" GO T0' I5 
end 


PCA0054C 

PCAOuSSO 

PCA00560 

PCA0C57C 

PCAC758C 

PCACC590 

PCA006U: 

pca:c61<: 

PCA00620 

PCAw063C 

PCA}C64C 

PCAC065C 

PCA0C66C 

PCA3067C 

PCA0068C 

PCA0069S 

PCACC757 

PCA3071C 

PCAC0720 

PCACC73C 

PCA0074C 

PCA00750 

PCAUC76C 
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:MPILER options •> name* NAINt0PT«02*LlNECNT«56tSlZE«CC0CKt 

SguA^VESCOrcV'NOllSTfNOOECKfLCADtMAFfNCEOIT t lOtNCXREF 
FUNCTJON PQJf IPtIQtBB) 


THIS SUBROUTINE COMPUTES THE JCINT ACCEPTANCE FUNCTICN PCR 
JEf ANO rocket NOt'SE* 


IMPLICIT R£AL*8 I A-0»F-H,C-il 
COMMON /ACCSPT/ALFA 
" wOMMffN "/CdNir fP I 
COMMON /LET TRS/A tB tC tCK *CRA T tORA T 
COMMON /MORE/WOLCPI tPICER 
COMMON /EPRCOR/TVXRfAXCOF » TVTR»AVCOF 
DIMENSION Alt 3t2)tOEL(2l t6AM(2| fACPT(2) 
OELIU«TVXR/AXCOF»NOLCPI 

“6Sn2T«T^YOSyC5P^* 

GAMIU«TVXR«WOLCPI 
~GAM(2)«TVVR*PrCcR*ALPA/PI 
DO 10 I«l»2 
T * 12-1 1»IP«>I I-II*IQ 
FLJ > OFLUAT(J) 

n5NMT“^nyELT *»2 

DNM2 • 0FLm«*2«(GAM( n-FLJ}**2 
OELT 'i OEUn 
gamy « GAM( I) 

FACT « DEXP<-0ELT*Pn*(-l,D3l**J 
SNFT » FACT»p SINCGAMY*Pn 

AI(l,I) » 0ELT«tl.00-CSFT)*(l.03/0NMl«>l*00/CNM2) 

I ♦SmFT*((GAMV>FLJ»/DNMI^(GAMY-FLJ)/CNM2I 

AH2»II ■ SNFT*nGAMY*PLj»*CPI»2*O0*OELT/ONPU/0NPi 

1 ♦rGAMY-FLJ»*(PI> 2 *DO*DELT/DNM 2 »/ONP 2 » 

2 -CSFT*< (PI*02LT^(0ELT**2-(GAMY>FLJI**2I/CNMU/CNM1 

1 ♦rPT*OEt R I 0ELT*'*2^TGAMV-FL J I * *2 1 / CN M2 » / CNP2 » 

A ♦>(0ELT**2-(GAMY»FLJ)*A2l/(DNMl**2l 

5 ' ♦(0ELT**2-tCAMY-FLJ)**2)/(0NM2**2» 


AH“,II • OELT*SNPT*(l.DO/DNM2-l*OC/ONMl) 

1 ♦CSFT*UGAMY-FLJ»/0NP2-IGAMY*FLJ»/CNM1I 

2 ♦! GAMY+FLJ J /ONMl-t GAMY-FL Jl /0NM2 

♦AII3tII/FLJI/2.D0 


1C CONTINUE 

POJ » 4.*ACPTm*ACPT(2)/6 

PQJ » IALFA/P !)**2*ACPTI ll*ACPTI2l/B 

RETURN 

END 


C 

C 

c 

c 

c 

c 

c 

c 


POJOOOLO 
PGJ)Q|,2C 
PQJ00C3C 
PtiJOOOAO 
pcjvucs: 
PuJ00C6w 
PCJC007C 
PGJ wCCBl 
PQJC 009C 
PQJ 00 100 
PQJOOllC 
PQJ0G12C 
PQJCG13C 
PQJOOIAC 

PUJ0015C 


PQJ -30 2 JC 
PCJC021C 
PUJ0022C 
PQJ0023C 
PQJ0024C 
PQJCOZSw 
PCJv026-; 
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( JUN 74 .) 0S/36J FCRTRAN H 

aMPIL<SR OPTIONS - NAME* MAlNfOPT*62»LlNECNT*56tStZE«OOOOKt 
5Qt3RCSlTBCi51C7W3CTSTTNC06CKiLCA0,MAP,NCSDIT,IC.NCXREF 


SUBROUT JN5 P SOS_ < N » X # TOTP # TCTC • ARC I 

C«««**«««««««*««»«**a**«**«*«*a*«**«*«««**a*«a»*******a****«»««***»*»C 

c'“ C 

C This RauTINB calculates the P and C series HFEN using ThE c 

■C J 5 YM P 7 S T rc S 6 R I E 5 HE THOD~TWr ¥E SSE C “AND KEUMAAN FUKCTICNS. C 

c N(jTE:_ THIS_^P and 4 SERIES IS NOT THE SAME AS THE MODAL C 

C P' AND d lNO ICE'S. ' " C 

C C 


C*«««««lH«««***«»**»A*A*A««A***A*****A**AA*A****A***********A«*A'' »***C 

c c 

iMTrnt-iT- SEI'ArsF? "(TFO ,'P<=H ,C-r) • 

COMMON /CON ST /PI 

COMMON /CCNV/UPfON 

COMMON /FCTRL/PAC(57lfP$ICoCI 

C 

U*4«DC«N*N 

ATEX*T.I30*X ■ 

SJ*-l. 

TRMP-i^iyo' 

SUMP»l«00 

SUMO*'07D3 

R J* 1 aOC 

~c CXrCTJt ATE •F*~-ANCn»ir»~5F’RTFS' SIMULTANECUSLY 

DO 10 M«2»56t2 

rx*r j+zi'iJtr" 

TKMQ»TRMP*IU-RJ*RJ)/ATEX 
„ rRMP»Tft71Q*TU-RK*RKl/ATcX’ 

TOTP«SUMP+EJ*TRMP/FAC(M*ll 

Ej— n 

TOTQ»SUMQ>EJ*TRMQ/FACIMI 
" ‘ I ri TD TO'. EOi w . 001 GO TO 5 

C IF *0' SERIES HAS CONVERGcO THEN THE *P* SERIES HAS 

c ^ALSd"C0NVERG¥0 SINCE ONE MORE *P* TERM HAS SEEN CALCULATED 

VAL«SUMQ/TOTQ 

5 SUMO-TOTQ* 

• SUMRiTOTP'" 

RJ*RK«2.00 

'■ ic' contintje 

C TERM USED IN ASYMPTOTIC SERIES cXPRSSSICN FOR EcSSSL FU^CTICNS 

20"AR-<J»X=FT^<ir/7^£J^*7?0;'^2300J ~ ' ' ' ' 

RETURN 

'End" 


PSQOOCIO 

PSOOCC20 

PSU00C3C 

PSQ0004C 

PSQCCC5C 

PS000062 

PS0CCC70 

PSdCOCSC 

Psgoc^9C 

PSQ3C10C 

PSQOOllO 

PSQ5C12: 

PSQOOI3C 

PSQ0014C 

PSU0CI5C 

PSQOOleO 

PSQC017C 

PSQODldC 

PSQwCliC 

PSQ00202 

PSQ0021U 

PSQ:C22C 

PS00023C 

PSQ5024C 

PS0032SO 

PSQ:0260 

PSflv:27C 

PSQ0023C 

PSU0029C 

PSQC320.: 

psaocaic 

PSQ0G323 

PSQC.223W 

PSQC034C 

PSQ0035C 

PSQCC360 

PSQ;u 37C 

PSOC038C 

PSQCC39C 

PSQ00430 

PSQ0C41C 

PSQ0C42C 

PSQJ3430 

PS0C044G 


)C JUW,74 .1, QS/363 FORTRAN H 

IlMPtLER OPTIONS - NAME* MAlNtOPT»02>UNSCNT«56 tStZE«0003K» 

SOORCrtS&COlCTKCaST.'flOOECKTCllAir^FAPtNCE t IC.NGXREF 

FUNCTION QSdCNtXNStRI QSQCC^IC 

, ^ ^ QSQ00020 

C««»*«**«*«*A*«***«***««**m**********«**R*«*«***A*«******«««******«C OSUC0O3C 

. ^ “ Q QSG'TCCAC 

C this function calculates the *Q* FLNCTICN squared* THE C USQOCOsC 

I ^UNttlON IS A fERH ti THFAC'ljrSTri^’ AMPLIFICaTICN FUNCTION C QSGaU06Q 

c c 4 Sqo:c7c 

- ■C*****M*m*M*M**M***M**00**0***********»**m**0**m0*M**mmmmc QSG0C08C 
C C QSQ90090 

rMa~ICTrREACA8"rA-0,F-M,0-2> QSQ3010C 

COMMON /RAOII/RiNtROUT QSQOOllO 

^ QS03012C 

RKNS«R«XNS 0SQ0C13C 

C 'CALCULATE DERIVATIVE USING RECURRENCE RELATION QSQ0014C 

CALL BESSEL INf RKNSvBJRNtSVRNI GSQ9wl5C 

C TAKl“CARE OF THE HOLLOW CVLINOBR CASE. QS0U016U 

IF(RIN.SQ«?*O^I GO TO 13 QSQCwlT.: 

BiTNSiRiJCl'niXWS ' ' ' QSQ0018C 

CIVN«N/BKNS GSQ0C19U 

' CALC" 6CSSEC" ( N;bkNS #8 JBNf B VBN) QSG 3C20C 

CALL BESSEL (N4> \«BKNStBJBNPl tBVBNPl ) 0SQ0C210 

Q'«B ( D1VN«B JBN-B JBNP 1 ) *B VR N/ ( 0 1 VN«B V BN-6 V BNP L I QSQCC22G 

QSQ«Q*Q QSQ3G23C 

?rrnjRi; ~ " asacc24c 

1C QSQ«BJRN*«2 GSQ0025C 

RerORN™ GSG0026C 

END QSQ0C27C 


I JUN 7^ X„ . OS/363 FORTRAN H 

jFPlLFR OPTIONS - NAME* MA INtOPT«02t Ll NFCNTa56 tSI ZE*CC'C? K t 

575ORC^P7?SC:5TC7HOCrST7KC06Cir,-LCACtPAP,RCICIT,IC#NCXREF 

SUBROUTINE RECUR (N t Xf BSLN»BSLNH1 tdSU REC3CC1? 

C ‘ ” C REC3CC2? 

C«**«**««««««««***«»«*«««*««»*««**AP**«««****P*«»***»«*««**»««****9**C R6CJCw3C 

c C REC30w4w 

C THIS ROUTINE USES THE RECURSION REUATICN FCR EESSEU ARC C REC^'^wSv 

c hTumNTrFUNCriONS"T(rFlNO'vAtUlS CF HIGH CROfeR’. C R6C0C06V 

C C REC0007C 

C**«**«««***«««'*«*«*******F******************************************C REC33U8C 
C C REC30C90 

IMPLICIT ReAL*8(A-OfF-H,C-Z) RECOOlOO 

c R6c:oii>: 

■0TfiTi2;U3yX REC0012C 

K«N-l REC3U130 

C ■ START recurrence TO FIND CROER 9 SINCE 3 AND 7 ARE KNCWN RSC0014C 

00 10 I«8tK REC0C15C 

BSLNPl»QTNT«I«bSLN-BSLNMl RECCC165 

bSLNMl*aSLN REC0C17C 

sutfisiErscNP I - n gccc I sc 

n CONTINUE REC0019C 

BSL-BSLN RSC0020D 

RETURN RECi)2l* 

END RSCC022C 


JUN 

7A 1 OS/360 FORTRAN H 



MPIL5R OPTIONS - NAME- NAINtOPT*02»LtNECNT*56tSI2E»OOOOKf 




SOURCEtE8CDICfNOUST*NCJECK,LCACtMAP»NCEOlTtIOtNCXReF 




_S teROUT I NE _R6<iF AjL « N* XL t * I 


REGCCOlO 

C 

C 

REG0C02C 

C* 


• C 

REG0C33C 

C 


c 

REG3004C 

C 

TFIS SUBROUTINE USES THE ReGLLA FALSI (FALSE PCSITXCM 

C 

REGwOOSC 

C 

TECHNiauE TO ^iNb THI SIGENVALLES CF* THE CROSS PRODUCT OF 

c 

REGv.^360 

C 

THE OERIVATIVES OF THE BESSEL ANO NEUMANN FUNCTIONS* IN THE 

c 

REG3037L 

c 

HOLLOM CYLINDER CASE FUNCTION OCB IS THE DERIVATIVE CF J(X) 

C 

RSG0008C 

c 


c 

REG 000 90 

c* 


•c 

RECOCICC 

c 


C 

REGOOllU 


IMPLICit REAL*8 ( A-0»F-H,C-EI 


RSGG012C 


COMMON .ItAUT/QUlT 


REG9013C 


DATA 1/3/ 


REGOvlAC 


IF(I*Eg*N} GO TO 5 


REG0C16U 

c 

START OVER'AGAIN FOR NEM ORDER OF FUNCTION 


REG00170 


I«N 


ASGSOiaC 


XL«3*D3 


REG0C19C 

c 

STEPSIZE IS 3*1 


RSG3C20C 


5 XL« XL 0*100 


REG0021C 


VLFT«OOB(NtXU 


REG002ZC 


10 XR«XL«>0*i0C 


REG0C23C 


VRT»008(N,XRI 


REG0024C 


m'VL p mm'TOTTo; ?o 


RE6C02SC 


20 VLFT-VRT 


REG0C26* 


XL»XR " 


REG3027C 


GO TO 1C 


REG332BC 


30 IF(OABSlVLFTI*Lg*aUIT) RETURN 


REG0C29C 


XL«XR 


PEG3030^ 


return ~ ‘ ■ 


REG00310 

c 

CLOSE IN ON ZERO VALUE 


REG0032C 


Aw DO 80 J» 1*2 3 


RSG0333C 


XTST«(XL*VRT-XR'fVLFT»/l VRT-VLFT) 


REG00340 


VLTSTiOOBlNiXTSTI 


REG5335C 


IF(OABS(VLTST)*LE*QLIT) GO TC 63 


REG0036C 


mWCT?T»VLTTlTCT7KIJCr"Ga~TC*7C — 


RE6U0379 


XL«XTST 


REG0C3B3 


‘ vlpt«vltst 


REGCC390 


GO TO 33 


REG9040C 


6C XL-XT5T 


REG0C41C 


RETURN 

"7TTffi»XT5T~ - - - 


REG;G42C 

RSCC043: 


VRT«VLTST 


REG0C440 


80 CONTINUE ~ 


R6G3C45C 


RETURN 1 


REGC046W 


END 


REG3C4Y3 


JUN 74 I . . 3S/360 FORTRAN H 


MPttSR 


NAME* MA IN tOP T>02 • LI NECNT*56 1 S I Zi- *0000 K t 

_ T.LC AC .‘NAP . NCED IT . 1 0 . NCX R EF 


SUBROUTINE ROOT ( NtNTH tXNSt*i 

c ' ■ 



C THIS SUBROUTINE TESTS AND DECIDES NHICH PETHCC (REGULA FALSI 

._.g cJA IWFTSTIC SEftlSSi ■iifU” BE'TftEirTe’ FrKC THE NEXT EIGENVALUE 

C FOR THE DERIVATIVES OF THE CRCSS PRODUCT OF THE BESSEL 
C -4No^- 6UMANN PUNCtlONS.^ OF J|XI IS ALSC HANCLEC 

C IN THE HOLLOM CYLINDER CASE* 

c ■ ■ * 

c»»* »»«»»**»»*»**»»*<***»»»** *»»»*»»**»*****«»***********»*»*******’ 


implicit R6AL*8 ( A-DtF-HfC-ZI 
LOGICAL*! L/*FALSE*/ 
common /RAO 1 1 /R in (ROUT 
COMMON /STOP/VCRIT 
data BIG/l*SC00500/f 1/0/ 


IFIUEG*N1 GO TO 5 




L«*FAlSc* 

5 lF{NTH;gO.CI GO TO 25 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IF iL) GO TO 10 

7 C AL L' ffE CFAI“ iNTXNST^ J*:) 

C MAKE SURE MCMAHN DOES NOT GET A VALUE CF 'NTH* EGUAL TC ZERO 

■ IC I Fim F.L'EVn RE TURN ' 

J«NTH 

C S1NCE~ZER0'I5 THE ZEROTH SOLUTICN ADJUST SCLUTICN NUPEER FCP 

C N NOT EQUAL TO ZERO* N»C BEHAVES DIFFERENTLY 

CALL -M CTO H N TN T JV XWNT 

IF (LI GO TO 21 

C UScREGUlAFALSr UNTIL THE MCMAHCN SERIES PROVIDES GCCC 

C AGREEHcNTt THEN USE THE SERIES ALCNE FOR THE REMAINING RCOTS 

C * FOR THIS ORDER OF THE FUNCTION 

C RSTURN*EIGENVALUES 

RTTURN"" 


2? L»*TRUE* 

21 XNS*XHN 

RETURN UTUi'^uew CSSW 

25 IF(N.NC*CI GO TO 7 
XNS-J.in: 


RETURN 

sfr^^Rnrii *70001 

2JCC F0RMATC1X,'N0 CONVERGENCE WHILE LSINC RECULA FALSI PRCCECUPF* */ I 

RETURFri 

END 


ROOD DO 1C 
ROOOOU2C 
RCOU003C 
RQOOOCAv 
RCOOOOSL 
RCOC306< 
RCOOOU7C 
RCC0C08C 
RC00809C 
RCOOCICC 
R00 5:iK 
RC00312C 
R0UCC13C 
RCCOClAw 
ROOCGISC 
R000016C 
RCOOCITl 
RCOOCtSC 
RC00019C 
ROOC023C 
RCOJ0210 
RCOC0220 
R000023C 
RCOOC24C 
ROOGC25C 
R0000260 
RQOG027:* 
RCOCD280 
RUOC029C 
RCOC330C 
RCOU031'' 
R000032C 
RC00033C 
RG03334C 
RCOC035C 
RC03036C 
RC0UC37C 
RC00038C 
R00:029: 
RCOw04C: 
RC0C;4iJ 
ROOC042C 
ROC OCA 2 w 

rcoccaa: 

RCC0045: 

R00GS46: 

rcc;-;a7. 

RC03D43C 

RC0C'JA9« 
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JUN 74.1 QS/340 FORTRAN M 


RPILER OPTIONS -> NANM HAIN»0PT«02f UNCCNT«56*SUE»0000Kt 

IfflOACI » EfiCO 1C • MSCTTniSQOilCTi KCm PA P . RCIO ir# 10 , RC* R IF 

SU B ROU TINE SCA LP UtMtN»*l 

C THIS AOUTINF PERFORPS THE SUP OVER THE IS ACOUSTIC PCCE IKCEX. 

C IT 1S”0SEC BrrfAIN PROCRAMr^PUR"rCN''ANO' •STH8AN*. 

C 

' C*«**««*«*«*«**P*«*«****P****»***P*PPPP***P«***«*P**P****«**«*«P**»« 

c rM?LrnririTu*B i a-o;f-h,c- 2 ) 

COMMON /OIR/ISAME»10PP 



COMMON /STOP/ VCR IT 

COMMON /T0TALS/ST0T,PT0T,SPTCTC4I 

COMMON /ACUSTK/ACMOOSI8COOI tPNSiaCOO) tNUMAC 

~0 1 MEN S ION HOT HR 1 4 » » SP SUMI 4 ) 

C 

C INSurE next tern WlUUl5E“Fl*(5P CPPCStT6 direction 

hS00PP-l»D7C 

ssuM'«o;oo 

ST0T«0«D0 

00*100 IDX- 1, 4” 

SPSUMIIOX) » 0*00 

r^TTPTOTTTTrXTirgTUO 

C STRIP SIGN OF K 

' ' liiAi^nn 


»w 

c 

C 

c 

c 

c 

c 

c 


lSAVE-1 

C ONPACiC ACOUSTIC MODAL INDICES AND COPBINATIOKS 

NS»MODfMNS( DtiOdOCOD) 

iqSfTSTIOOO 

MN»MNS( n/iccc 

M-MPT/IOOG ~ 

C CALCULATE ACOUSTIC AMPLIFICATICR FUNCTION 

1C call HSaMNS (ACMOOS(I)fMNSm tMfN»HCTHR,H2MNStC50) 

C CHECK FOR ZERO CASE 

IFTHIHRS^rOVOSTTOI 

1 CALL PNDNXTnSAMEtK»ItISAVE»MNtPNS*NUMAC»ClC»C4C) 

ST0T*SS0M»H2MNS 
CO 200 I0X»I*4 

2S0 SPTUTI IDX )i SP SUM! lOXioHOTHR ( 1 OX) 

C CHECK CONVERGENCE IN ONE DIRECTION 

TFTri50M7Tnrn;irr7vciaT)'iBo-TC"2o- 

SSUM-STOT 
■ 00 300 IDX«i»4 

3C3 SPSUMdOXI-SPTOTnoX) 

C ‘FIND NEXT FREOUENCV IN SAME DIRECTION IF THE LAST CONTRIBUTION 

C FROM THIS DIRECTION IS GREATER THEN THE CCNTRIBUTICN FRCP 

C r H E~ FR EV n j US ~T g lT M ' RTTWr CPPCSITE OTRECTICN 

IFCF2MNS.GT.HS00PPI 

I C Air FNDN XT( T rX ME # K # I » I SA VE » PN # PN S . NUMAC 1 61 C . £40 1 
C REDEFINE OPPOSITE TERM VALUE 

■ HSQTJPPAH2MNS' ' 


A -68 


OftHUHAL 

^ f*OOR 


^AGB f$ 

O’lf! Ify 


SCA9001C 

SCA00C2C 

SCA00:>3w 

SCA0004C 

SCA00U5C 

SCAU0D6C 

SCA0C07C 

SCA00C8C 

SCA30L9C 

SCAOCIDC 

SCAOUllC 

SCA3CI2C 

SCAC0I3C 

SCA0014C 

SCA0CI5C 

SCA00160 

SCA0017C 

SCAOCIBC 

SCA00I90 

SCAC020C 

SCA00210 

SCA0C22: 

SCA0023C 

SCA0024C 

SCA3025C 

SCA00260 

SCAC327C 

SCA0028C 

SCA00290 

SCASC33C 

SCAC031C 

SCA3032C 

SCA0033w 

SCA00340 

SCA8C35C 

SCACw36d 

SCA0037J 

SCAC038C 

SCA0039C 

scAo: 4 ^: 

SCAJ041D 

SCA0042C 

SCACw43; 

SCA0G44: 

SCA0C43C 

scAc;46: 

SCA3C47t 

SCA0C48C 

SCACC490 

SCAOOSX 

scAoosi: 

SCA5C523 


GO TO 30 SCAOOS3Q 

29 SSUH*ST0T SaOOSAC 

CO 49C 10X«1»4 SCA0055Q 

4C0 S1»SUMU0X}*$P7OTn0X) SCA0dS6C 

C CHECK CONVERGENCE IN BOTH Cl RECTI CNS SCA0G57C 

~ 25 'IPCHSOoRP.EQ*-UD;I RETURN SCAGOSBw 

C INCURE CONTINUED PROGRESS IN THE OPPOSITE CIRECTICN SCAC0S9C 

— SCA006): 

C PINO NEXT PREQUENCV IN OPPCSITE CtPECTICN SCAXAIC 

10 Call PnOnxT liOPPtKtItlSAVEfPN|RNStNURAC»eiC»C35) SCA0362C 

35 K«>K SCA90630 

AC CONTINUE SCACC64C 

GO TO 25 SCAC<ii65C 

‘yiTSTDRfn SCA0C66C 

SNO SCAUG67C 


JUN T4 1 . dS/atJ FORTRAK H 


INPILER OPTIONS - MNS> MAlNfOPTB02tUNECNT«56»SIZE«()OOOK» 
5in3ia7EWOTC7mnn7NCOECRftCAOfPAP,NCMIT#IO#KOXRIF 


SUBROUTINE SCAUB IK,M»NfP) 

■""C ■' -■ c 

C***«*A*«*»*«<li««***«tt****«»»****A*«»»«***»A*A«««A*««***A*«PP»««»**«*»C 

' "C c 

C THIS ROUTINE OBTAINS THE SANOtelOTH ACCUSTICAl APPLIPICATICN C 

— c #uWmfiN. t rTTmf(r^Yliitfi Mcc'Ram ucodan • C 

c c 

''C*««*«««*>**«»*«*P*«»**«*«*«»«***P«*PPPPP*P*******P**»****P*»**»*««*»C 

c c 


1nRLICiT‘‘»eal*8 U-0.F-H,C-Z) 
common /error /la ST 

COTaCN^IWACRIT 

COMMON /TOT AL S/ STO T »P TO T • SP TC T 1 4 1 

COMMON /ACLSTK/ACMOOSf 8C0G) tPNSC8900) tNUMAC 

CIMENSION H0THR(4I tSPSUMUl 

C ■ - - 

I^K 

• 

00 I0X«lt4 
ICO SPTOt(IOXl*C.OO 

C UNPACK ACOUSTIC MODAL INDICES AND CCMBINATIONS 

NS«MO0(MNS( IltlCCd**OJI 
N-NS/1009 

Ri^NWNTrrrnroo ■ 

^*MN/ 1CU3 

c * Calculate ACOUSTIC amplipicaticr function 

i: CALL HSQMNB C ACMOOS( 1) tMNS( I) »M,N,HCTHR »H2MNS »CSOI 
C Check FOR ZERO CASE 

STOT»HZMNS 

ca'sar rffizsTT? 

2^: SPTQTUOXI-HOTHRnOX) 

RETURN 
5C RETURN 1 

END ' 


SCAOOOlO 
SCA9CC2C 
SCAJ003C 
scACc:^4<* 
SCAC0C5C 
SCA )0v6C 

scaooot: 

scAuccac 

SCA90U9C 

SCA0C13C 

SCAUdliC 

SCA9C12: 

SCAUCi 3 C 

SCA0L14C 

SCA0C15C 

SCA0U16U 

SCACC17S 

SCAC018C 

SCAU:i9C 

SCA0023C 

SCA00210 

SCAC;22C 

SCA0C23C 

SCA0024C 

SCACC25: 

SCAC026C 

SCA0C27C 

SCA)tl28C 

SCA3029C 

SCAD333C 

SCACC 21 : 

SCA00320 

scAjosa** 

SCAC034C 


OS /360 FCKTRAN H 


i: 


JUN. 7A 

iMPlLFR OPTIONS - NAMia NAINt0PTa02ti.lNeCKT«56tSlZE«CCC!Kt 

rOTOi;iBCerr»fraLI'S T 7 N 00 I CK f LCAC , map* NCBO it # I C t NOXP ip 

SUBPOUTINB SHOOSC tlPSTvl Pf NOflGST*lGBNC*ICM 

C 

C«««»«««**»»*«*«««««»«P**«**»»***»«»«P*P*««P«*»««»****PPP**«**«<»*** 


C t 

C THIS SUBROUTINE CALCULATES THE STRLCTURAL PCCAL PRECUEACIES C 

--C PW~ART»TWTinypre"SHlU’'SElSMENT STlPPENEO BY RINGS. THE C 

C CALCULATION IS PERFORMED OVER TbO MODAL INOIClESt IP ANC IC* C 

c sACH combination op ip and ic has three associated MCCAL C 

C FREQUENCIES* THE INDICIES ARE PACKEO INTO ARRAY MPQ IN THE C 

C" ORDER IQ'ANO IP*~ THE FREQUENCIES SQUARED ARE STORED IN C 

C ARRAY STMOOS* IN ADDITION* THE THREE ASSOCIATED CCNSTANTS C 

’C F. SIL OED ~ PGR "T Hf ~ y WPLTTUDr FUNCTl ON FOR EACH MCDE ARE CALCULATED C 

C AND the squares STORED IN ARRAY STFC 03 t THE INDICIES (SAME C 

C AS FOR THE THREE FREQUENCIES! ARE STORED IN ARRAY PPG 3 * C 

C C 


C ' 

mpnicTricrAL*^'T*=(JTF=*ff7c-n ■ "* 

DIMENSION BUF( 3 }* 1 BUFI 3 )*)I <31 
COMMON /ACCEFT/ALFA 
COMMON /CON ST /P! 

COMMON /LETTRS/A*r.C*CK*CRAT*ORAT 

COMMON /STRLCT/STM00SI1200! *MFQ(123QI *STMC03 (400 *3 ! »PPC3 (AGO I * 

1 ITOMSTiNOMl 

PNUal*0w-2.03*A 

c 

GO TO (lCj*2GQ*lCS.20’:)fiCN 
ICO J«l 
Ml 

FtAST * r;023 " 

FLASTl«FLAST 

C LOOP OVER P AND Q STRUCTURAL MOOES 

00 20 IP-IPST,1PEN0 
RP2-IP4IP ■ 

P2B>B«RP2 

“ ~10 TQ^TOST .. 

11 RQ2»( IQ*PI/ALFAI**2 

TERX*P2S*P2B^2*00*P2B*RQ2^0RAT*R02*RQ2 
TER2>( l*00^AI«P2B4'(CRAT«A)«RG2 
T£R3»P2B*P2B>(CRAT-PNU! •RQ24P2B/A^CPAT*BC2*PC2 
C0F2«CRATKK«TER1«TER2 

CO F T « C T A T yT TT ; OCPFA«FN U»P NtJ/CRAT l*P2B»A*RC2l*CK*TCR2*TFRI»A*TER3 

COFO»Aa(CMTER3*TERl»(CRAT-PNU*PNU) •P2B*P2B! 

COF2«(-r.DC)*COF2 
COFO»(-l.OOI*COFa 
call CUBICiX.COFZ.CUFl.COFO. £5001 
STMOOSi J)>X(I)/C 

I QDHD - iq»ICC 0 'F 7 F ” 

MPQ( J)>IWURO 

"J«Jn 

STMOOSI J!»X(2I/C 


SMOOCOIC 

SMO 0 eO 2 O 

SMOCOOSC 

SMO^OUAO 

SMOCCCSC 

SMC 00 Q 60 

I'MOOOOTC 

SMO 03 C 8 C 

$.‘. 0-30090 

SM 0 C 013 C 

SMOCwlU 

SM 00 C 12 C 

SM 00013 S 

SM 0 ) 014 C 

SM 00015 C 

SMOOwlAC 

SMOCOITO 

SMOCSIBC 

SMC 30190 

S MOOD 20 ? 

S MOOD 21 3 

SM 000220 

SM 0 w 023 C 

SM 000243 

SM 000250 

SM 00026 C 

SMOOC 27 C 

SMO 0028 C 

SMOQ 029 C 

SM 03 C 3 CC 

SM 00031 C 

SM 000220 

SMOCC 33 : 

SM 00334 C 

SMOG 035 C 

SM 00 C 36 C 

S.M 00037 C 

SMO 30380 

SM 00 C 39 r 

SMO 00430 

SM 00041 C 

SMC-CCAa** 

SMQC 043 V 

SMOOC 44 C 

SM 0 GC 43 -' 

SMO 0 C 46 : 

SM 00 C 47 'J 

SM 00043 C 

SMC 0049 C 

SM 000500 

SM 000 SI 3 

SMC 03520 


A- 7 I 


y ro g ffg nr n y itniyc — — ” ” 

NPQIJI»!M)RO 

—JS3VJ ’ 

$TM0 03tRtH «IF2B»A*RQ2l/C 
■~5TM06i<k» 2lT«l A«P2 BVAw 2«CAA T) /C 
STMOOa(K»3l«4(P2B*R42l«ll«0>AI**2)/C 
MP^TfKl-rwOAfi 

K«K»1 

■■~PtAir2iPLASTr'" 

PLAST1«0H1NUSTM00S( J-3) tSTPCOSf J-21 •STPCOSCJ-1 >. I 
iTf id. gQ i tU ST IPUST2«RU S U 

IF((FLASTI.GE.PUST|.AN0.IPLASTI.GT.PUST2I ) 60 TC 16 

" 

IPUU.GT.lQeMOl GO TO 16 
60 TO 11 

16 IPI IP.EW.IPSTIPUST-PUSTl 
gO“C0NffNUE ' 

C NUMBER OP STRUCTURAL MOOES 

RuM5T=7nr 

NUM3*K-1 

CALL SORTrUTNODS.NPQtNUMST] 
WRlTH(2»250lIPST»IPEN0«l0ST,I0EN0tNUPSTtRUP3 
250 PORMATiellOr^ 

NREC*NUNST/5 

■ i PlM r ECi ' 5;i T .NUH5 T INR ir»NRgC*r~~ ~ — 

00 60 llI»lfNKEC 

iNor«y*(ni-i)^i 
IN02* INOl^A 

1P4 1N02.6T*NUMST)1N02»NUMST 
MRlTE12t250MMP4( JJO) tsl0J*lN01flND2) 

WR ITS I irSBO rrSTHOD Si J-J JT7JJ3-TMJI #TK02 I 

6: CONTINUE 
NRgC»NuM3/5 

I P I NR EC* 5.L T.NUM3 INREC »NREC*1 
" 00 61 rM«l,NREC 

IN01*5*(111-1)*1 

TJirZ5WTT5 

|P( IN02.GT.NUM3)tN02*NUM3 

>iR i TE ( 2,250 1 1 MPU3 1 J J J } , 0 J J« i NOl , 1 K02 } 

00 611 KKK»1,3 

MRlTEi2,350HSTMOD3UJJ,KKKl ,UJJ-IN01 ,lKC2i 
611 CONTINUE 

fj-COKTITiOE 

35C P0RMATI5016.1CI 
TwOpr-2;oo*pi 
6RlTEUf2C03l 

2000 FURMATilHl,Tl6,* STRUCTURAL MCOAL FREQUENCIES ANO INCICES*, 
% 1 ///, 3( • INDICES*, 3X,*FREGL£NCIEf •• 3X) ,//) 

roujgrso “ ” - 

¥ 00 30 I«1,NLMST,3 

“■ 

C RRITE FREQUENCIES IN HERTZ 

L*'l 
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•>> 


SM033S3: 
SMO0C56O 
SM000550 
SMO0C560 
SM00057C 
SMCC0S8C 
SM00059C 
SM000600 
SMOOC61C 
SM00062C 
SM00C63C 
S*tOCC66u 
SM00065C 
SM00w66w 
SM0GC6Tw 
SMOOu6aC 
SM03369C 
SMOCC73C 
SM000710 
SM0CC72 : 
SM03073C 
SMOC076C 
SMOCC75C 
SMC0C76C 
SM0CG77C 
SMCCC78e 
SM00079C 
SM0C08CC 
SMOc.ai. 
SMO0062C 
SMOC0830 
SMC0C64r 
SMOOC85C 
SMC 30860 
SMO0C87C 
SMOC088C 
SMC30e90 
SMOCC93C 
SMC0091J 
SN000920 
SMOJL930 
SM00C94C 
SM00095C 
SMC3096C 
SM0:C97u 
SMGC098C 
SMOC099J 
SM031COv 
SMOCiOlC 
SM03102C 
SMC0133w 
S MO 3 1C 4“ 
SMUO1C50 
SMC3106C 


I 

I 

I 


I 


i 




00 25 J«IfK 

J C rrSTMOD srjl I7TW0PJ * “ ■ 

IBUPUt-MPQU) 

■ ~ ari-n’ I — ’ " — ~ " 

MftITE(6f 2001) ( rSUFI JtfBUFt J) tJ«l»3) 

2C< I "FURMfTITh V3f ro; 3X#F !• 1 »4X) ) 

KOUNTaKOUNT«>l 

! fmjiTKmi i •bo. o') ~^t (\ YrrbTrcooi 

3C CONTINUE 

" “ “oo '^nFKKk-lTs' ‘ 

WAITEU»2002)KKK 

20 C 2 FORMJrraHl# Tilt* structural constants CSIlt* ANO INCICIES' 

3( MNOlCeSSSXf'CONSTANTS't 3X)t//) 

fCOTir? 

00 AO I*IfNUM3t3 
K*r»2^ 

L*1 

■ DO 35 JiT,K • 

BUF(L)«0SURTISTM003( J»KKK))/TN0P1 

mypiD.HIHjSljl 

35 L»L>1 

URTTETY^TOOIT riBUFrJI .BUFf Jl ♦ J*l »3) 

KOUNT-KOUNT^l 

TFlH0DrKaUNT75Ol^l^aiarwaTFf6t2C02l 

AO CONTINUE 

6111" CON T INUE 

NRITE(6,2003) 

■ 2yC3“FaRffATnH17"" 

RETURN 

2 CO REA 0TZ7 2 5 J TIFST"# TPFNO 1 1 0 ST, I CENO ,NUFSTt NUFS 
NREC*NUMST/5 

1 F I NR E Ct 5»1. T >NUH ST I NR EC «N RgCn " * 

00 70 III»lfNREC 
— TNcn*F-rrm-iT^i 
IN02« INOl^A 

in lND2;GT7N0KSTirN02*NUMSr 

READ! 2t 250) IMPtiUJJ) fJJJ*IN01 »1N02) 

REA D TZ ^ 553M S T HODS I JJJ) , JJJ«l N-Dr«~IND2) 

70 CONTINUE 

NRFC-NUHJ/T* - ' ' " ' 

I F ( 5*NR EC.L T.MUH3 )NREC«NREC«>1 
‘ 00 Ti TirsrtNREC ' 

INDi»5*(III-l)*l 

IND7-INDTTR 

IF( IND2*GT«NUM3)IN02«NUN3 
READr27250HHPQ3C JJJ) rJJJ*TNDl .IND2) 

00 711 KKK»lt3 

"RSADarJSOKSTMaOarJJJ.KRK) ,JJJ«INDl ,INC2) 

711 CONTINUE 

71 CONTINUE 

RETURN 

5C0 STOP 695 “ 

END 


SHOU1070 
SM001C8C 
SM001C9C 
SMOOllOC 
SMOCUIC 
SH00U2C 
SM001130 
SH00114C 
SMO0U5O 
SM0C1160 
SHCJIITO 
SM001180 
SMQ0I19C 
SMO0120C 
SH00121C 
SMO01220 
SMO0I230 
SM00124C 
SM0C1250 
SM001260 
SHO0I270 
SM00128C 
SM00129C 
SM00139C 
SMO0I310 
SH0S132S 
SNU01330 
SM0C1340 
SMOC135C 
SM0CL36C 
SM001373 
SN0C13Sr 
SM0U139C 
SMOCIAOC 
SMOOlAi: 
SM0C1A2C 
SMOU1A30 
SM0C144L 
SM001A5C 
SM0C1460 
S MOO 147- 
SM00148C 
SM00149C 
SMOC1520 
SMGC151C 
SM00152C 
SMOC 153 V 
SMC0154C 
SM00155W 
SMC)TI56J 
SMCJ157': 
SM00158C 
SMOC 159 V 


r 
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I JUN I . . OS/360 FCHTRAiN H 


JMPII.SR CPTiUNS - NAME- MAINtOPT«02tl.lNECNT«56 tSIZS-COOCK, 

5iIuTiTX.TfCintTm rST7?iCDE CK ”, L C AO , MA P , NC£ 0 IT , 10 . NCX R EF 


SUBROUTINE SORT |RA»lAtNUM) 

C — — — - - - j. 

-t " ^ ■ c 

C This ROUTINE PZKF ORMS A NUMERICAL SCKT CN INPUT ARRAY RA ANC C 

I SdRtS THE CUNTENTS CF~A‘RRAV'lA“rN TME SAME CPOBR. C 

C C 

C*«***«»«»*««««*««»««*«««»«»*«»»««****«**«»***«««»**«««««»****«**»*«*C 

c c 


' IMPLfCiT real*! iA-0»F-H,C-2l 
CIMENSION tAm«RA(It 



IP(NUM«FU.l) RETURN 
JK-NUM-1 
00 13 I>1»JK 
"KK-I^'l 
CO 10 J«KK«NUM 

! r:(ir;i5:3mT)ii'J- ycr jt ■” 

xx«RA ( ; i 
RA( I i-RAU) 

RA( J}«XX 
II»IA{ I ) 

IA( I)-IAU) 

Tim^Ti 

10 continue 

RETURN 

cNO 


SOR3031C 
S0RC032C 
SOR 3C02C 
SOR 0334 W 
SCROCOSC 
SCR00C60 
SOR30C7C 
SOR f '08*. 
SOR 30090 
SQRCCIOC 
SCRuwlK. 
SOR3312C 
S0R0J13C 
S0RC014C 
SOR0015C 
SOR00160 
SORC017C 
S0R0018C 
SORO019U 
S0R3020C 
S0R00210 
SOR0O22C 
SOR 00230 
S0RC024C 
SORC0250 
S0R0C260 
S0R3i27: 


JUN 7.4 J 


0S/36J FORTRAN H 


MAlN»OPT*02tLINeCNT«56tSUE 
ndFlCVNOil ST»'I500ECF . ' CAC 


0009 Kt 
tMAPfNOEOlTt 


]MPtLER OPTIONS - NAME' 

Sa-QKCIlfSCIFlCl'NOi I ST,'I500EC F • 

SUBROUTINE STAMFB IlfHZPUt*) 

. , .. ^ 

c - ■ C 

C THIS ROUTINE CALCULATES THE S1RLCTLRAL AFFLI FICATICN FUKCTICN C 
* ~C”~^ I s~(^SEO BY MAIN PROGRAM *STRBAN». C 

C C 

C««««««««*«««*«*«««**»«««««»*****«**«**«A*«»*«M**»***»*«»«*««»«««****C 

c c 

" 'TMPLrCVr realms CA-OfF-H.C-ZI 


'C“ 

c 


COMMON /STCAMP/STOAMAtSTOAMB 

T0W5iDK7C’cnT5^7PT ' 

COMMON /FREQ/WSQ 
CCMMON 71NF0/IN0EX 
COMMON /LEAO/HFTERMtBBB 

Common /STRXT/STMOOSt L2C 9) tMPgaZCO tSTMCOS (4C0 »3) tMPC3 (400 f 
I NUMSTtNUMS 


't5 


GO TO 20 


“2?n3y 

20C2' 


20C3 

Tfi-CIT 


MPQ SSXt'STMCOS'f/) 


C 

C 


25 


■'35 

20CI 


FIND INDEX FOR CONSTANTS 
00 lO~J«r;NUM3 
IF(MP 03 (JI«EQ*MPQIin 
CONTINUE 
MRlTE(7f 2000) I 

TOWTOTTIXT^CDNSTANTT'NOT’FDUND FCR" MODAL INDEX •#I9,/| 

WRITE(6f 2502) 

FORMAYahOt ' INDEX' »5Xt 
00 3000 JJJ«ltNUMST 

wRITE(6i2003)JJJtMPQ( JJJ) *STMOOS(JJJ) 

FORMATUh * IStSXt I9f 5X»D10«4) 

"coFiTmaE 

RETURN I 
" FIND SECOND 
NOT BE USED 
ITST*MPg(TI 
W2PQ1*STM00S( I) 

"DO 30' JK*1»NUMST 

IF(MPU( JK)«EU«ITST.AN0*UNE* JK) 

CONTINUE * 

WR1TE(7(2C01) 

FOWTATTlXf' SECOND FREQUENCY NCT FCUNO') 

RETURN 1 
TTZFffZ 

IN THE ERROR MESSAGE INDICATING MODE EXHAUSTION 


FREQUENCY AND DESTROY ITS INDICES SC THAT 
AGAIN AS A FIRST FREQUENCY BY MISTAKE 


GC TC 40 


■53“5r2P'ff2*‘STW3DSrjfa' 

INDEX IS USED 
"JKKK»JK*I 

00 70 JKKaJKKKtNUMST 

TFIHFQQKKJWEQSnST.AND.I.NE. JKK) GC TC 

70 CONTINUE 

awTTsnrzrsm * 

20C4 FORMATdXf' THIRD FREQUENCY NCT FCUNO •) 

RETURN 1 

80 W2PQ3 « STMOOSUKK) 

— inoet“»-hpotjkri 


ICfNCXREF 

STAOCCie 
STA00C2C 
STA00030 
sta:oo 4C 
STA0005C 
STAOOOBU 
STA00070 
STACCC8C 
STAOOw9C 
STAOOIOC 
STAOOllO 
STA0012C 
STA0013C 
STA00140 
STA00150 
STA00160 
STA00170 
STA0C18C 
STA0019C 
STAC0205 
STAU0210 
STA00220 
STA(/d230 
STA0024C 
STA0025C 
STA50260 
STAC027C 
S7A0C280 
ST A.^ V 69'< 
STA0023C 
STA0C310 
STA0C32: 
STA00330 
STA00343 
STACC35C 
STA0036C 
STA00370 
STAC038t‘ 
STACC39C 
STA0040C 
STA0041C 
STAC0420 
STAvC43w 
STA0C44C 
STA0045C 
STACC46' 
STA0047C 
STACC48C 
STACC49: 
STAU0505 
STA DC5i^ 

ORIGINAL PAGL ISTACt 52 C 
OP POOR QUALITY 


IT WILL 


lal- 


C STRUCTURAL AHPL2F ICATtCN PLNCTICN 

AWTrsTfiAinr7rr27ff<y*m»iTOA>6f ~ — 

AFACT«APACT«APACT 

SFACf»r.09*St0AMB 

SUETAl«AFACT*W2Pdl**BFAC^’ 

S0ETA2*AFACt*»«2Pg2**BFACl 
Sg£TA3* AFAC T«n2Pa3**BFAC T 

H2p«“hFfS(0r*iTwTtf-lT^^ toSg-STMCD3 C J,2 1 1 

_ I -STM003i J»3II**2 

'H2PJ •"H2PQ/iC0SQRTCSQ6TAll/Pn 

*((M2Pg2-WSQ)**2«^SgETA2«kSC) 

«( |M2Pd3-tiS0l**2«>$flE TA3*HSCn 

RETURN 


STA.^C530 

STA0C5AC 

STA00S50 

STA0056C 

STA0057C 

STA00580 

STAC059C 

STA006-30 

STA00610 

STA00620 

STA0063C 

STACdEAC 

STAUL65C 

STA0066C 
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3MP1LER OPTIONS - NAME- MAIN*OPT-02ttlNSCNT»56 tSUE-OOOCKt 

5iJCrRC:¥VI®nffCV»jOtfSTVNCIDECK,LCAO,MAP.KC60IT , lO.NCXREF 


SUBROUTINE STANFC ( I fMiNt lOtHGAMl t *1 

c ” C 

c*«»*««««««*««««««*«*«*«**«********-«*«**«*******-»«*-***««***-**«*—c 

C "" c 

c this routine calculates the strlctlral applificaticn functicn c 

~l Sl5Cfi^f6'riMlTlHr"SCltE#tiN^^ "FUNCTI CN FOR STRUCTURAL POOES C 

C SQUARED TIMES THE ACCEPTANCE FUNCTION BETWEEN THE EXTERNAL C 

C PRESSURE ■PISLO AND STRUCTURAL MODES. THIS IS THE TERR WHICH C 

C COMPRISES THE SUM OVER THE IP STRUCTURAL HCOE INDICES. THIS C 

C ROUTINE IS USED BY MAIN PROGRAMS 'PURTCN* AND 'ACCBAN*. C 

C C 

C C 


IMPLICIT RSAL-8 I A-0»F«H,C-il 
COMMON /STOAMP/STDAMAtSTDAMB 
COMMON/CONST/PI 
COMMON /FREQ/WSQ 

- ■ - 

COMMON /LEAO/HFTERMfBBB 

common /SAMPLE/TEMP I122CI •LPQSll2CpI .NUPTPP 

COMMON /STRUCT/$TMOOS(12CC) fPPGliaOOl *STM003 1400 t3) t PPC3 1400 ) t 
I ■ NUMSTfNUM3 

C 

p-jND "ASSOCIATEO'THIFO FRECLENCY 


00 10 J-1»NUM3 

- IFIMPQSIJI.EQ.LPQSCin CC TC 2S 
10 CONTINUE 

WRITE! 7, 2300 II 

20CC FQRMATUX, 'CONSTANTS NOT FOUND FCR PCDAL INDEX *fI9t/l 

“•WTTETSrZOtm 

20C2 FCRMATl IHU, * INDEX*, 5X,» LPCS ' ,5X , *TEMP' ,/ 1 
DO 20C0 JJJ-i,NLMTMP 
WRITE(6,2d03)JJJ,LPQS(JJJ) ,TEMPUJJ| 

20C3 FORMATIIH , i5,5X,I9,5X,DIC.4) 

30CC CONTINUE 
!TFrDR7r~I 

C FIND SECOND FREQUENCY AND DESTROY ITS INDICES SC THAT IT WILL 

C NOT BE USED AGAIN AS A FIRST FREQUENCY BY MISTAKE 

20 ITST«LPJS(II 
C UNPACK THE" IP INDEX 

IQ » L PQSm/l OOO 
rP-TfOUrCFffSTTT fT^DT 
LPQSI I J-95999S 


W2PQlMTEMPm 
CO 30 JK«1,NUMTMP 
IFILPQSUKl.EQ.ITSTI GO TO 4C 
2;. CONTINUE 

WRITE! 7, '20011 

2CCI FORMAT ( IX, • SECOND fREQUSNCY NCT FCUNO'I 

RETORfJI ■ 

AD W'.PQ2»TEMPl JKI 

C INDEX TS USEIT IN THE ERROR MESSAGE INDICATING MODE EXHAUST ICN 


STAOOOlw 
STA30C2C 
STA0003C 
STA00G4C 
STA )U05C 
STA00C6: 
STA0C07G 
STAC008C 
STAwvCYC 
STA3010C 
STACOllC 
STA0012C 
STAU313C 
STA0014C 
STA0015C 
STA3C16C 
STA0017T 
STA00180 
STAGC19C 
STA0023C 
STA0C210 
STA0G22C 
STAUC23C 
STA3024C 
STAU025G 
STA3C26: 
STACC27C 
STA0C28C 
STAGC29G 
STA00300 
STAUU310 
STAC0S2C 
STA0U33C 
STACC34^ 
STA0035C 
STA30360 
sta::37; 
STAC038C 
STA0C29C 
STAjOAT" 
STA0C41C 
STA0C42C 
STAJvA3w 

stacgaa: 

STAU045U 

STAC-JA6: 

STA0C47C 

STAQC4S2 

STA03A9: 

STAOC53C 

STA0C510 

STACC52C 
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1 

i 

i i 
t 


LPQS(JKI>999««9 

Ji<kijR,MUMTMP 

_ _ IPUPiJStJKKI.gJ.ITST) GO TO eC 

70 ■Continue 

WftlTEI7,2C04) 

' 20C4 '^QRMAT av. »' THIRD PrEOUENC V NC t F CUNO * » 

RETURN 1 

80 W2P^i - TgMPijKK) 

LFJStJKKI 

""LPOSlJKKTii “999999 

C CHECK FOR ZERO CASE 

AMAG«GAHA(M7iPr’' 

IFUHAG.EQ.O.OQ} GO TO 5C 
“C S TR uC T UR AL a MFCTF I CAT I C N FUKCTICN 

AFACT-STOAMA/I ( 2»0C*PI I »*STOANB) 

AFACT»AFACT*AFACT 

BPACT«l.O0«-STOAMB 

SOI TAl«rAFACT*te2PQl**aF AC T 

S0ETA2«AFACT*U2PQ2«*BFACT 

SQITA2*AFACT*H2Pgi**eFA'Cr" 

H2P0 - HFTERH«UWS0-STHGD3( Jtin*(HS0-STMC03(Jt2n 
I" -StM002l J#3n**2 

F2PQ » H2PU/1 (( ti2PQl*HSQ)«*2«-S0ETAI*t«SQ) 

1 *! rH2PQ2-HSQI**2*SQE7A2*hS0» 

2 *UW2P03-WSa)**2«>SQETA3*hSCn 

DUH«v-Pffjnpvra',aBBj — ' 

HGAM I«h 2PU«AMA3**2*0UMMY 
“RETURN 
•D hGAMI«f*,03 

RETURN 

END 


STA0053C 

STAGC54W 

STA00550 n 

STA00560 11 

STA0057C 

STA00580 

STAC0590 I 

STA0063U 

STA0C61C 

STA0062: Tl 

STA0063C il 

STA0C64.: 

STA00C3C 

STA0066C 1 

STACt67t .1 

STA0C6BC 

STA0w69C ^1 

STACC73C ( 

STA00717 

STAC0720 

STA0i73C I 

STA007A3 .1 

STAOU75C 

STAC076W 

STAog77C 

STACC78C 

STAuu79C 

STA70800 

STACC81C 

STAC082C 

:TAtC83U 
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1 


i 4m 7^..i 


0S/$60 FQRTRAN H 


JMPlLSft OPTIONS - name* HAINtOPr«02*LlNECNT«56 tSUE«CCCCKt 

5 UDm:FrEffcsrc;-NO), I p ^ Noroir . ic#AcxPfp 

function PPN IN# IP I 


C 

c 


c 

c 

c< 

c 


THIS function calculates the acceptance eetmeen the extepaal 
PftfiiiiWS Pia 6 ' 2 n 56 "tHr' 5 T«iX;TrifAL‘M^^^^ ‘ 


TiilPL rcrf ‘RlALA^fi I A-0 .FiM ,C-2I 
CCMHON /HRE^IwSq 


c 

c 

c 

c 

•c 

c 


COMMON /MOAE/PFAONTtMOLC tWOLCPI tPECIPfCBHtPICERtPICEFI t 
I - - wOLCOStPiCCOStQCTERP 


ppfiip.pi 

£ONE«WOLC»PPI 

TTirai 




EVALUATE THE SI ANO CIN FUNCTIONS FOR THE *P* TERM 
CALlTirNCOS UONe» SINONE tCGSCNE ) 

CALL SINCOSIZTwOtSINThUtCCSTliO) 

GJ« 1«00 
IIP*IP 
CTiKiT 


7FTIFTr¥VB73 "OR” 000 ' ' 

IFfMOOUlPtEI«NE*Cl OJ»-l*Ow 

PTERM*«PFRONTwUPI/2.00l*(SINCNE*SINTl.CI»(C0SCNE-CCSTtaO)/«2.C0*IP) 
CHECK FOR special CASE 

IFI (W0LCPI-IPAIP*RECIP)*NE*'!«D;» pterp«pterp-pfrcat* 

U a«DO«OU» WOLCOS>/(tiOLCPI"IP*IP*RECIPn 

“TFTNTSuTOl' 


TscrnrTff" 

PPI»2.DC*PI*N 

Z0NE*PICEPI>PPI 

ZThO»PICEPI-PPI 

'EVALUATE THE SI AND CIN FINCTICNS FOR THE *0* TERP 
CALL S INCOSI ZONE# SI NONE tCCSCNE) 

■ 5 INCOSCZ 7 »iO,Sn^ODTCTSTl.rr 


PPNOOOll 
PPN0002( 
PPN00C3< 
PPN0U04C 
PPNOOCSC 
PFN0006< 
PPN0037< 
PPN0i)L8< 
PPNCGC9C 
PPN0010( 
PPNCCll^ 
PPNCCI20 
PPN 00130 
PPN00140 
PPNCClSw 
PPN0CI6C 
PPN0017Q 
ppNOOiaa 
PPN00190 
PPN0020C 
PPN0021C 
PPNC022C 
PPN0023C 
PPN0024C 
PFN00250 
IPPN00263 
PPN0U27C 
ppn:;23C 
PPN00290 
PPNC033C 


PPN.;v2lC 


CALT 

OTERM>CBM«(PI«l S1NONE4 >SINTnC)-(CCSCNE>CCSTIiCI/I 2*CC»M) 
rF(IPICER-NPN*CBW).NE.a«OC)QTERM«CTERM-CBH«ll.OO-PICCOS)/ 
1 (PICER-N*N*CeW) 

PPN«PTERM*OT€RM 
RETURN 

OSS' FOR MHOF' ‘“TER M " 


PPN*PTERM*QCTERM 

RETURN 

END 


PPN00220 

PPNOU33C 

PPNCC34C 

PPN0035C 

PPNC036C 

PPN0C37j 

PPNC038C 

PPNC.0390 

PPNCC43C 

PPN0C41C 

PPN0C42C 

PPN3343C 

PPN3C44C 

PPNC:45* 


« JUN 74 L_. OS/360 FORTRAN H 


:MP1I.ER options - name* MAlNtOPT*C2,LlNiiCNT«56tSlZE«C?0^'K, 


SUBROUTINE SINCOS ( ZtSlNINTtCOSlNTI 

c C 

C c 

C THIS ROUTINE CALCULATES THF VALLE CF THE SINE ANC COSINE C 

- -g lTTTT(jirSL“FUNCTreiiS^^^ FUNCTION EVALUATED IS ACTUALLY C 

C the CIN function. SeRlES TECHNIQUES ARE USSC FCR ARGUMENTS C 

C LSSS'THAN One. rational APPRCXXMATICNS are CTHSRHiSE usec. c 

c c 

C««««««*«««»*«*««*«**«*««A*»*P*«*«««A*A*****«»»*«*»«»**«««*«»A**«***C 

c c 


■“"IMp-LiCTrR:B'fl:*S-Tff-Tr#F-W,C-ZI 

OIMCNSION FAX14)tFBX(4)tGAX(4) .GBX(4) 

COMMON /CONSTVPI 

COMMON /CONV/UPtON 

COMMON /FCTRL/FAC( STIfPSIUCI 

^TA FAX/38.027264t265. 167033 t335.67732t38. 102495/ 

JATTr F5K7^377n'433 i 122. 624911 ,57%236280 .157. 105423/ 

DATA GAX/42.24285Sf302.757B6*,352.:i8498t21.821399/ 
DATA 6BX/48.196927t462. 485984 tlll4« 978885 t449.690326/ 

C 

IFrr.EQ.C.OOr GO’TO 4C 
IF(CABS(Z).GE.1.D0I GO TO 30 
jm 

eJ«l« 

SUMS1N-0.D0 
SUMCQS*0*00 
DO 13 r*l»57 
K«2* I- 1 

riKTr 

T0TS1N*SUMS1N«>(EJ«XX)/(K*PAC(U ) 

EJ—6J 
xx«xx«z 
K»24I " 

L«K*l 

TOT CDTSS 5 UMCUS 4 T FJ • X JOTf K *FAT: R. IT 

IF( TOTSlN.hQ.O.OOi GO TO 5 

C IFTHE SIN SERIES HAS CCNVSRGEO THEN THE CIN SERIFS 

C HAS ALSO CONVERGED 

m» SUMS IN/TOT SIN 

1F(VAL.GT«DN*AN0*VAL*LT«UP) GO TC 2C 

5~n^-)(vi 

SLMCOS»TOTCOS 
SUMSlN-TOTSlN 
10 CONTINUE 
2VSININT»TaTEIN ^ 

COSINT»-TOTCOS 

ffFTURN 

s: Z2-2*Z 

■ r4»rz*z2 

Z6«Z4«Z2 

Z8»Z5*Z2 ~ ~ 


SINOOCIC 
S IN 00020 
SIN 30 C 3 C 
SIN 00040 
SIN 03 C 5 C 
SIN 0 CC 60 
SIN 0 C 07 C 
siNOOcac 
SIN 00 C 9 C 
SINOOIOC 
siNXii: 
S;NC 512 C 
SINtfOliO 
SINC 014 r 
SIN 0 C 150 
SIN 00160 
SINC 017 C 
SIN 00180 
SIN 0019 C 
SINCC 20 C 
SIN 0 U 210 
SINSC 220 
SINJC 230 
s moo 240 
SINC 323 C 
SlN 0026 a 
SINCC 27 ; 
SIN 0023 C 
SIN 0029 C 
SINCw 3)0 
SIN 0031 C 
SIN 0032 C 
S 1 NLC 33 ;' 
SIN 03340 
SIN 0035 C 
S IN 0036 C 
S 1 NCG 37 ^ 
SINOC 38 W 
SIN-; 039 C 
SINC 040 C 
SIN 00410 
sin::4 2C 
S IN 0 C 43 C 
SIN 0 C 44 : 
SIN 0045 C 
S IN 0 C 46 C 
SINCC 47 - 
SlN 0 u 43 C 
S lN 0 C 49 tJ 
SIN 00 SCO 
SIN 30 SIC 
S INCiS 2 C 


A-80 


c 


C RATIONAL APPROAIMATICN 

i* fimmu ax cs » *Z2 »f ax ( a n/ 

I U8«PBXCII«^6«>FeX(2)RZ4«>PBX(3)*Z24>FBX(4m 

' GOFT^ 1*00/22 r«C i I e^GA XI 1 1 «Z64GAXI 2 » *24^GAX 13 1 «Z2tGAX f 4 ) )/ 
I IZ8*GBXIl}*Z6«GBX(2l*Z4»GBXC3l»Z2tGBXl4m 

SiN InWi / 2;og-fofz*oco si Z I -GCFZ^OS l M Z l 
C10FZ«FOFZ*OS1NIZI-GOFZ*DCOSU) 

X FSTrn rs" FiiTiiATi ve 6uceTr*'sTcKst ant* “ 

CQS 1NT«-C10FZ»DLOGIOABSU) )-PSl III 
* ■ftgTURN"' 

4C SIN1NT*C*00 

' COS inT*o;oo ' 

RETURN 

gNO - - .. 


SIN^053C* 

s 1 NO 054 ; 

SIN00550 

S1NCG56C 

SiNCtSTC 

siNCOsau 

SIN3:59C 

s inooaoc 
sin:o 61 c 

S 1N00620 
S 1N00A3; 
SIN0CA4C 
SINC.065C 
S1N:C66w 


Fes-LEVEL linkage IOITQR.QP.TIONS specified MAPfLETtLIST 
DEFAULT CPTIONtSI USED - SIZE-U31072 t32768l 


FCDULE PAP 


CCNTAOL SECTION 
" NAME ■ " dprciimfreTir 


ENTRY 

RAMr * CCCATICN NAME 


MAIN 

AMCCES 

BESSEL 

BLJOSF 

3LYOEF 

CAPGAM 

COPYC 

CUBIC 

CONST 

CCNV 

'OTA — 

FCTRL 

DOB 

FNONST 

FNONXT 

FRSFND 

"GAMV 

HSQMNB 

HSQMNS 

mcmahn 

MNCAlB 

MNCALC 

‘PNSUM 

NXTMN 

PCALB 

PCALCC 

PQJ 

PSGS 

CS'C 

RECUR 

RcGFAL 

ROCT 

scalc 

SCALCB 

SMOOSC 

SORT 

STAMFB 

STAMFC 

PPN 

SI NCOS 
“IhclsCn 

IHCLLCG * 


DO " 167A 
168 J B2C 

2166 508 

2788 2A6 

■* 2a3"J "3"^ 

20C8 3A0 

3168 13E 

32A8 364 

361C 8 

3618 10 

- 36^8 T 

363C 3A8 

39C8 200 

3CA8 208 

3F60 3C6 

4290 436 

4878 5FA 

4E78 60A 

5488 4A0 

5928 lEA 

5B18 2F6 

“5EK 3AE* 

61C0 19C 

636C 2 1C 

6580 480 

6AC0 '56C 

6F73 314 

7288 nr 

74FC IBE 

76BC 29A 

7950 276 

7BC8 432 

800C 254 

— 825S F7T 

91C0 2C6 

93C8 SEC 

99C8 71E 

A0E8 3A£ 

A499 55£ 

«F3 7€T 

2CD 


orSSSti^ 


AC68 


DCOS 


A 9 F 8 DSIN 


LCCATICN 


AA 12 


DLQGI 3 


AC68 


OICG 


AC 80 



1HC6FNTH« 0060_ 542 

IHCLASCN> 6248 24P 

IHCLEXP * E4F8 _2e8 

IHC6F10S* 6780 F2e 

IHCF1GS2* F6A8 !2S 

IHCSRKM • F0C8 


IHCUOPT * I'*l 88 ' -- 345 - 

IHCETRCH* r.35e 26S 

IHCUAT3L* IC768 628 

aX'CE Pf — 17E E5 r~ 

B^SCA 10823 8 

tIGFN 10E3C'” "Tfi 

FINAL IC548 58 

PREC lOEAO’ / " 8 * 

halt 106A8 ■ 8 

XEAD — - -icrreij rr~ 

L^TTRS ICECO 30 

^•CRE iOEFO SO 

normal 1SF40 8 

RADII ICF48 10 

OTHER UF53 48 

St CAMP “KFIS 17“ 

ACCAMP 1:F80 _ 10 

STOP lOFCO C" 

TABS ICFOO C 

TERMS IDFEO ' ' * 33 ' 

vARSo ims i; 

VR'BLs ITTSI T3 


ACUSTK 11340 17704 

SClNS 28748 I2CV 



NAME LCCATICN 


NAME LCCATICN 


\-fS9Tt km 


ERR SE T 

APC8 

ERRSAV 

9IC2 

EF 

FUXPOi 

6200 




Tffi^nr 






lecoM# 

B5CO 

FOICLSR 

867C 

I^ 

SEQDASO 

C8AC 




AOCONP 

CBA8 

FCVACUTP 

CC52 

Ft 

FCVI3UTP 

DIEE 

FCveCLTP 

06 PC 

f. 

arithp 

0D6C 

ACJSmTCH 

EOFC 


■UITCE5T 

E 2Ar ■ 

OAftSIN 

E2C3 


DEXP 

S4F8 




FIOCSX 

E78: 

FICCSBEP 

£736 


ERR MON 

FBD8 

IHCERPE 

FBF3 


IHCTRCH 

10556 

EP.RTRA 

10560 



83 


NAME 


ORIGIN UfNfilH.. 


NAME LOCATICN 


NAME ICCATICK 


STRUCT 

29A10 

6608 


J«IF“ 

l3 

sample 

2PE3B 

3866 

ERROR 

33683 

4 

TOTALS 

336B6 

30 

INPC 

336B8 

6 


ENTRY ADDRESS 90 

TOTAL LENGTH 936G3 


«»*«MA1N 


OOSS NOT Tj(iST BUT HAS BEEN ADDED TC DATA SET 


jcd riust 


8 8N TEST W0« 2 ANO 3 


INPUT DATA* 


tSNG TH OP CYU INCEft ■ 

length op scThent ■ 

SEGMENT DISTANCE P8CM END OP CYLINDER * 
RAUIUS OF INNER CYLINCER • 

RADIUS CP OUTER CYLINCER • 

SMELL STRUCTURAL THICKNESS • 

SHELL FILLER THICKNESS ■ 

"shell density"* 

LCNGITUOINAL YOUNGS MODULUS • 
CIRCUMFERENTIAL YOUNGS MLOULLS ■ 
PCISSCN'S RATIO • 

SPEED OF SOUNC ■ 

FRAME AREA • 

"frame* MOMENT CF INERTIA • 

FRAME-SKIN CENTROID DIST » 

FRAME SPACING ■ ‘ 

FRAME YOUNGS MODULUS • 


6C«CDDCa FEET 
~'" 6j*3GG00 FEET 
C«C FEET 

D*0 FEET 

8.0D00D FEFT 
0«CC4CO FEET 
C.C50C1 FEET 

■ " C.D989C SLUGS/F0CT**2 
•I8432E 1C L8S/FT**2 
•S04C3E 09 L8S/FTPR2 

c*3:dgg 

1116.DOOOD FEET/SECCND 
•986100-C2 FEET**2 
/l83tC0-C3 FSET**4 
•109C0D CO FEET 
•158C0D 01 FEET 
•19432E 10 L8S/FT**2 


ADJUST CIRCUM FERENTIAL SENO r g STIFFNESS B Y 0*J?503 


ACOUSTIC. iOOAL FREQUENCIES AND INDICES 


— muH TRRuifirffr 

— iNurar? — wwoiwrirr" 

INOlCrS FREQUENCIES 

33O?0COO 

279*C 

220S1C32 

278.9 

24CC6C03 

278.5 

23:^3 30CI 

278.2 

29C02300 

278.1 

19038000 

277.7 

200-34001 

277.6 

27C310:i 

277.6 

183C2CC2 

277.5 

— 2tt:4.K0 “ 

' — irr.y 

njlwcar 

27T;4 


276.9 

L3C06001 

276.6 

28CD3C30 

276.6 

25CC20C1 

276.1 

10001003 

276.C 

15C09C33 

275.7 

17C30CC3 

275.7 

12C;3%*2 

275.S 

9C1C0CC 

274.4 

28C3OC0; 

273.9 

9C040C1 

273.7 

■■9531C33 

273.3 

29301 30C 

272.8 

21007000 

272.6 

25CC5U00 

272.7 

24033CC2 

272.2 

“ 21. 'ir;2 ■ 

■ "*272rr 


“■27?;i ■ 

"X7CJ2C32 

272.0 

11003002 

271.9 

16CC80C0 

271.8 

SwldCCO 

271.7 

190C4001 

271.! 

22C33CC1 

271.2 

14C39CC0 

271.1 

230. '60 DO 

271.1 

83C6CC1 

271.: 

16000C03 

270.5 

83rii}03 

27C.3 

290003CC 

269. 7 

7313COO 

269.3 

26C010C1 

269.2 

28002C30 

269.1 

26C04000 

269.1 

t')*;6)01 

266.6 



T68;5 “ 

■ 24C:20C1 

268.3 

TwClOOS 

267.9 

27033CO0 

267.9 

14C05C01 

267.4 

6C1Q000 

267.2 

■“ “13C09CC3“ 

266.6 

16C02002 

266.7 

6C?60’:i 


17C38C30 

266.2 

2::37C3j 

266.2 

6CC1U03 

265.6 

'20301002 ~ 

265.5 

18CC4C01 

265.5 

15C003C3 

265.! 

9003CC2 

265.5 

5310000 

265.4 

2730013 r” 

26 $• r 

ZltOSCOC 

264. 6 

5??6CCIX 

264.7 

2300DC02 

264.6 

21303001 

264.2 

5C31C03 

264.3 

4013000 

264. C 

'22UC6C00 

263.8 

28C31CC3 

263.6 

4336001 

263.2 

13305001 

263.0 

3C1303u' 

262.3 

12CS900C 

262.7 

■' 8CC2C32 

262.7 

4C01C33 

262.5 

3 DC 6001 

262.3 

201CC0U 

262. U 

15CC2C02 

2<>X«6 

lOlOOwD 

zii.r 


2151.4 "■ 

13CC" 

261.3 

2 00 6001 

261.2 

2SC01C01 

26C.9 

16C38003 

260.8 

25C0400C 

260.6' 

14C0CC03 

260.7 

1336001 

260.7 

23302301 

263.6 

20C1C03 

263.0 

60 :i 

26C. 5 

28330030 

263.4 

' 7C33C02" 

260.2 

27CC2C30 

265.1 

100 IOC 3 

263.1 

1003 

259.9 

19C07000 

259.3 

' “rtjw4dcr 

2T57T 

26003C00 

2 Z 

19201032 

259. 1 

ll'tODw? 

258.9 

12CC5001 

258.9 

6CC3002 

258.0 

20 3 3 3001 

257.4 

22CC3C32 

257.1 

230C5030 

257.3 

14332002 

256.8 

21CQ6033 

256.7 

26CC3CC1 

256.3 

13C';CC3 

256.2 

5C02C:Z 

256.2 

158C8C0C 

255.6 

13309000 

255.4 

11CC5C01 

255. 0 

4 333C02 

254.6 



1 60040 -3l 

254.2 

- - T8CCTCC3“ 

253. 6 

3C:3JC2 

253.4 

223C2::i 

253. C 

18C010C2 

252.9 

24001^01 

252.6 

“* “2C13C32 ■ 

252.6 

243:4003 

252.5 

133020C2 

252.2 

9CC9C00 

252.1 

i:C3C32 

252.1 

12:C'.'jC3 

251.9 

—*2;:2 ■' 

251.9 

lOC-Tsoai 

251.4 

26w320C3 

251.1 

2700C030 

251.1 

19C03C31 

25C.8 

l43c8’Cy'? 

2507T 


25G.5 

6P700C32 " 

249.8 

2 3‘::6033 

249.7 

22035333 

249.3 

aCC93C3 

249.2 

15C34Cw''l 

24ff.r 

-”’'90D5C0T' 

248.1 

11300C03 

248.0 

12C320C2 

247.9 

250CC001 

247.6 

17CJ7CJ0 

247.5 

173: ICC 2 

246:. 6 

7CS9C3T3“~ 

246.6 

I3:C0C3D 

245.9 


. . 

. 

A- 86 




iU;QUSIJLC-i!aCAkJER6.Q«NCIf S_ANO INOICgS . 


Ncms — PfROwrrn — iwcrra — prkuencies — ruwcrs — frfqqenc i es 


2i:?23Cl 

245*6 

26C01000 

245*2 

8C05001 

245*1 

23031001 

244* 5 

Id^OSdSl 

"244.3" 

""23004000 

244*3 

60090CO 

244*3 

100CC0C3 

244*3 

11002002 

243*8 

l^j45Tr 

2737S 

19S06OCO 

242* 8 

“TcujraifTr" 

242*6' 

7035001 

242*5 

5CQ9Q30 

242*3 

25C32CCC 

242*2 

2*4003000 

241*9 

26COOOOO 

24U8" 

" '21005000 

241*7 

16'. 5700 5 

241*7 

12C18000 

241*5 

16001002 

241*3 

9300303 " 

240*§ 

— 4ET990C * ■ " 

240* 7 ■ 

* ecoscci 

240*1 

130020C2 

24C*1 

3CC9S00 

239*4 

13u04C01 

238*9 

2403 3331 

HIT? 

8'i09;oo 

lISTf 

2oc;2o:i " 

238*3 

50C5001 

238*1 

17C03001 

238*0 

1C09CC0 

238*0 

90U0 

237*8“ 



237*6 

110C800C 

237*4 

90020^2 

236*6 

4C05C:i 

236*5 

22C:iC01 

236*4 

22004000 

236*2 

18fif600*d" 

^3i.l 

25U0100C 

236*1 

15007000 

236*1 

19000C02 

235*6 

15001002 

235*3 

T05T50 1 

835*2 

T3i539^3 

THTI — 

“12 JC4C01 

234*4 

20350CI 

234*3 

20CC5000 

234*3 

1C05C01 

233*7 

5001 

233*6 

— ‘0^02002 

"233*5 

1 0C08CCO 

233*5 

230030CC 

233*4 

24002CC0 

233*3 

6C:0C03 

232*7 

250000C; 

232**5 ■ ■ 

16^001 

"232*0 * 

19C020C1 

231*1 

7002002 

230*7 

14007000 

230*7 

50000C3 

230*6 

2300MOT 

2T372 

11OO4001 

T3X71 

"" "■^Txac^o "" 

230*0 

14031002 

229*9 

17006000 

229*6 

4CO0C03 

228*9 

18030002 

228*7 

ziTOioci: 

228*4 

6002002 

228*3 

21004003 

228*2 

300C203 

227*6 

19C05CCJ 

227*0 

240 nos; 

226;*9 

8038000" " 

226*7 

2Cu0003 

226*6 

53C20C2 

226*2 

15003001 

226*1 

1CCC4C01 

226*1 

10^^003 

?l67i 

3 

"7T575 

“ITXXTCCO 

■ 225*6 

22;: 3* ‘5 

224*9 

13301C02 

224*8 

4002 CC2 

224*4 

233020 30 

224^4 

“Tio^xcor 

224*0 

7C08C00 

223*9 

l^wwbOCO 

223*3 

240C0000 

223*2 

3C02CC2 

223*1 

9}:-43ci 

222*4 

2J02C32 

"222*1 

■ 17000CC2 

221*9 

22303 0«1 

221*6 

1CC20C2 

221*5 

2CC2 

221*3 

■SO-OBICS 

22 ITS 

12C07SOO 

"22X77 

“ T4CX7C0I " 

■ 223*5 

25:513^1 

220*5 

20C04CCC 

220*3 

i2::icc2 

219*9 

1833500 3 

219*T' 

siicfiocor 

219*2 

8CC4CCI 

219*1 

233010C3 

217*6 

4CC8C00 

217*4 

15006000 

217*2 

l70i20Cl 

217 T2 * 

“2T3J3C00 

216*4 

11C07CCC 

216*2 

70w40Cl 

216*1 

3CC8300 

216*0 

22002000 

215*5 

16530032 ■ ■“ 

2T574 

llCOlOQZ 

2X ^ 

" 1TX030C1 " 

2X5*1 

20:8 33C 

215*: 

10U8COO 

214*4 

QZZO 

214.2 

2333O3C0 

213*9 

6*004001 

213*5 

21C00C01 

213*0 

17005000 

212*8 

19C01001 

212*7 

19004000 

212*5 

13007000 

211*9 " 

T50T6vCw 

211*4 

50i40Cl 

211*3 

130310C2 

211*1 

16C02C01 

210*5 

12003001 

2iC*l 

4m040"01 

25975 

15000C02 

TflX*T 

— 22 cor COO” — 

20 896 

200 03 00 3 

208*1 

9007CC0 

208*0 

3004031 

2v6*u 

9C010C2 

207*2 

— 2X74051 — 

276*9 

■ 213020CO 

206*7 

10C4001 

206*3 

4001 

206*1 

16005003 

206*0 

13036030 

2'051'E 

11X03001 

"2Cr*3 

185JIC01 

2C5.C 


ORIGINAL PAGE IS 

OF 


ACm.S.TJC.J»aCAL^JI£aUCNCIES AND INDICES 


NTITO rAg^JE W CTIS r NClCES FlEflUENC I gS m01XE5“' FAfOCEKCTES' 


l83C40w0 

2C4.8 

22C0CC00 

204*6 

2C000001 

204*5 

dCOTlOa 

204.J 

■~f500"200l ■ 

204*0 

8001 Cw2 

203*6 

lAoaoooz 

203«C 

7CS7C00 

201*3 

1CCC3C01 

200*8 

“irc : o’^o’S 

1iPi73 

TiOTTDl 

20774 

19Cv3000' ■ 

199*8 

2133UC0 

199*5 

15005000 

199*4 

6CC7000 

190*4 

2300 200D 

' 198.6' ” 

"1461I001 “ 

■ 197*8 

6001 002 

197*6 

l7wC 100 1 

197.5 

17C04000 

197*3 

13X0CC2 

197*2 

9003001 

- I96i7 IfWOOOl 

196*1 

sac7ccc 

196*0 

11J060CO 

195*5 

2100C000 

195*3 

5C01002 

193*1 

40it1C5“ “ 




I-93.X~ - 

I4*C5CC3 

193*3 

3003001 

192*9 

3007000 

192*5 

130C2C31 

191*8 

180C3000 

191* 6"*’ 

r20CC002' 

191*6 

3C01002 

191*6 

2007000 

191*3 

I2006CC0 

190*8 

1C07300 

190*7 

20OOI0CO 
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7600" 
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2001002 
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1600 IOC 1 

190*1 

16004000 

189*9 

1C01C02 
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18C0U00I 
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6C03C01 
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12002001 
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17C03CC) 
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8CS6C00 
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1C0C0002 
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TEOTT 

TECOICOO 

180«6 

3003501 
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17COOOOI 
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2C03001 
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178; 8 
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3C01 
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14001CCI 
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— EC06CCT"" 
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16003COC 
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10002001 
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175.4 
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I76a 
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182.5 
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156*6 
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156*5 
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l56*C 
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2 
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30C2001 
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13COOCC1 
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llOOOCOl 

133*1 
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130*2 
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126*9 
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120*9 

200 UOl 
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4CC0 
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115*1 

7C02000 

113*7 
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111*6 

IIOJIOOO 

110*2 

6303000 
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7C00Q01 
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5C03C30 
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87*8 
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85*6 

1 
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83.7 
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■ 8OOOO03 
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2CC2000 
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68.4 
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67.8 
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65*1 
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61*9 
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55*8 

4001000 

55*3 
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49*5 

5GU0C0C 

46.5 
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44*9 

lOClOOO 

41*9 
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4C.9 
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3 7.2 
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01 
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02 
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20020 

5531. C 

2CC19 

5016.5 

20018 
■ '20015 

20C12 

50''2.7 

4966.0 

4936.0 

20017 

20014 

4989.7 

4955.2 

2CC16 
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49ft. 3 
4945.2 

20011 

4921.5 

gUiO 

— ??r577 

20CC9 

4912.7 

2t)C8 
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2 OC06 

4696.1 
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4892. C 

2C0o*t 

4888.7 

20003 

4886.1 

20502 

4884.3 

2C0C1 

4863.2 

19020 

4795.2 

19519 

4780^0 

l9Ci8 

4165.5 

19017 

475i.8 

19016 

4738.9 

19C15 

4726.8 

19014 

4Y15.5 

19013 

47'5Tr»! 


46?T.3 

19011 

4686.3 

19. >15 

4678.1 

19CC9 

467% 8 

19008 

4664.1 

19507 

4658.3 

19006 

4653.3 

19005 

4649.0 

19504 

4645.5 

19C03 

4642.8 

19C02 

4640.9 

i9;ci 

4V3 9 . 7 ' 

leua 

' 456C.4 

18019 

4544.3 

18013 

452S.C 

18017 

4514.6 

18C16 

4501.0 

18015 

“441871 

T55T4 

447673 

18013 

4465.2 

18012 

4454.9 

18011 

4445.4 

i8:i: 

4436.8 

18009 

4429;<' 

18008 

4422.C' 

18C07 

4415.9 

180C6 

4410. 6 

18005 

4406.1 

180C4 

4402.4 

13CC3“ 

4399.5 

180e2 

4397.5 

is:ci 

4396.2 

17)20 

4326.7 

17C19 

43C9.6 

17C18 

4293.4 

1701 f 

4278.1 

1 7 C 1 6 

4263. 7 

- - 

4250.2 

17014 

4237.5 

17C13 

4225.8 

17012 

4214.9 

17011 

4254.9 

ITiiO 

■“'4195.8 • 

17CC9 

4187.5 

17008 

4180.1 

17007 

4173.6 

17006 

4166. C 

17005 

4163.2' 

170754 ” 

4159.3 

17CC3 

4156.3 

17002 

4154.1 

17C51 

4152.6 

1602C 

4094.2 

"16019 

4076. 1 

T50T8 

40 5 8* 8 

16017 “ 

4042.6 

16016 

4027.2 

16315 

4012.9 

16014 

3999.4 

16013 

3986.9 

- 16012 

3973.4 

16011 

3964.6 

16015 

3955.1 

16009 

3946.3 

16CC6 

3938.5 

16007 

3931.5 “ 

16006 

■ *3925.6 

16CC5 

392C.5 

l6vC-4 

3916.4 

I60u3 

3913.1 

16C02 

391C.8 

16iOCl 

J909.5 

ISOzO 

38'637r 

15019 

" 3843.9 

15018 

3825.5 

15017 

38C8.1 

15C16 

3791.8 

15015 

377674 

13C14' ■ 

3762.1 

15012 

3748.8 

15012 

3736.4 

15011 

3125.1 

15Ci; 

3714.8 

15009 

3 70 5. '4 ■ 

T3ffC8" 

3697.1 

15007 

3689.7 

150C6 

3683.3 
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3677.9 
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3673.5 
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36lC. 1 

nuiJ2 

3667.6 

'"ISCOl 

3666. 2 

14020 

3634.2 

14C19 

3613.4 

14C18 

3593.6 

I4<n7 

' 3575.C 

“14016' 

“3557. 5 

14C15 

3541.0 

14014 

3525.7 

14013 

3511.4 

14012 

3498.2 

14011 

3486.1 

74010 

3415.0 

I4C09 

3465.0 

14C58 

3456.C 

14C57 

3448.1 

14*: :6 

3441.3 

r400T~~ 

34T575 

1400^ 

3n43r77B 

14C03 

3427.1 

1400 2 

3424.5 

14C01 

3422.9 

13020 

2407.4 

13019 

338479 ' 

I3JJ0— 

3363.6 

13017 

3342.6 

13016 

3324.7 

13515 

33C7.C 

13014 

3290.4 
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72757C 

I3CI2 

326Ci8 ' 

12011 

3247.7 
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13913 

3235*6 

130C9 

3225*0 

13CC8 

3215*4 

13CC7 

■ 3296'.9 ■" 

1T306 ■ 

3199*6 

13C05 

3193*3 

13 304 

3186*3 

13003 

3184*3 

12029 

3183*4 

13901" 

3161*! 

13001 

“HT978 

12019 " 

3159*0 

izcia 

3135*9 

12017 

3114*2 

12016 

3993*7 

12313 

30 74 ; 5 

12^14 

3056*5 

12C13 

3039*9 

12912 

3024*5 

12911 

3010*3 

12U10 

2997*4 

12;C9 

298^V7 

12 C C8 " 

"2975*3 

12007 

2966*1 

11329 

2963*C 

120C6 

2958*2 

125C5 

2951*4 

"~123(5'4" 

“2W57S 

UC03 

"■297fr;T" 

“ 12002 ■ 

2938*6 

12':CI 

2936*8 

ii:i9 

2936*4 

113x8 

29X1*2 

11317 

2887*4 

IIJ16" 

2865*0 

I1C15 

2844*0 

11014 

2824*5 

11C13 

2806*3 

11012 

2789*4 

llCll 

2774*r ~ 

new “ - 

2759*9 

1002 c 

2747*4 

11309 

2747*2 

uoce 

2735.9 

11007 

2725*9 


^718« d 

llOC6 

■2717*2 — 

iToor 

2739*9 

ii:o4 

2733*9 

119C3 

2a99*2 

UC02 

2695*9 

11391 

'2693*"9~ 

— i«r6 " 

2690*3 

10017 

2664*0 

10016 

2639*4 

10C15 

2616*3 

10C14 

2594*7 

' 10013 

" 257477 

noi2 ■ 

2556*2 

10011 

2539*2 

9020 

2538*1 

lOwlO 

2523*7 

10CC9 

2599*8 

90T9 

25T577I 

nnjTi 

1 

1 

I0CO7' 

2466*3 

20320 

2478*3 

K0w6 

2476*8 

9918 

2474*4 

1CDC5 

■ 246’8*e 

rcoc4 

" 2462*2 

10CC3 

2457*1 

10302 

2453*4 

10001 

2451*3 

20019 

2447*1 

9017 

2445*T 

9016 

2417.7 

29C18 

2417*0 

9915 

2392*0 
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2388i.l 

19029 

2336*8 

‘901'4“ 

2368« u 

20016 

~ZTiUi5- 

T90I9 

2354*5 

9013 

2345*8 

8C20 

2337*3 

20C15 

2334*1 

9312 

‘ 2325*2 

r^ia 

2323*3 

20014 

2399*1 

9011 

2306*4 

8C19 

2300*4 

18C20 

2296*4 

19317 

2293*3 

" "" -“9C10 

2289*2 

Z0C13 

2285*5 

9 3C9 

2273*7 

8018 

2265*5 

19CI6 

2264*5 

2O0T2" 

22TI74 

T5wT9 
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2259*3 

9007 

2247*7 

20011 

2242*8 

9CC6 

2237*1 

19C15 

2237*r 

8017 

■ 2232* 6 

18C18 

223C.6 

9005 

2228*2 

20010 

2223*8 

9C04 

2220*9 

93C3 

"221 5.3 
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'2211*3 

19C14 

2211*0 
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2298*8 

17 320 

22C7.4 

29009 

2296*5 
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18017 
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2176*9 

17C19 

2172*7 
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* 2172*6 
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29C96 
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2148*3 
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'2145*6 
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18015 
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6006 

1525*9 

14705 

1525*2 

13010 

1324*0 

4717 

1520 ; 8 

■ 1020 

152C.5 

12C13 

152C.4 

14004 

1513*1 

6w05 

1512*8 

9019 

1511*5 

inis* 

t'5'3^6 

“r4Cor* 

1TC377 ■ " 

17C17 

1503*7 

60C4 

1502*1 

13009 

I49e*8 

14C02 

1496*9 

6703 

1493*6 

■ 14071 

1492*8 

6002 

1487*9 

12712 

1437*7 

5713 

1487*7 

6C Cl 

1484*4 

2019 

1481*8 

““6020 

148C.4 

3aa 

1477*8 

13008 

1475*6 

9018 

1468*1 

11C14 

1467*4 

40r6 ‘ 

1463*4 

“TCWTi 

l461« 8 

12011 

1456*8 

13007 

1455*1 

5012 

1450*7 

1C19 

1445*7 

13'C6 

1436*9 “ 

" 8019 

1436.0 

11C13 

1431*3 

12710 

1427*6 

9C17 

1425*1 

10C15 

1421*5 

13CC5 

1421.2 

””5011 

1416*7 

3017 

1410*8 

2)18 

1409*3 

4015 

1408*4 

13004 

1406*3 

7020 “ 

1475*1 


1470* 9 

13 y 33 

1398*1 

11012 

1396*7 

6018 

1392*9 

13C8Z 

1390*3 

13:-^ 1 

138611 

'"5710 

1386*0 

9C16 

1382*6 

10514 

1382*3 

120C8 

1376*3 

1018 

1371*0 

11711 

1363*9 

“ 7019 

1361. 9 

5CC9 

1358*3 

43 14 

1356*2 

120C7 

1354*1 

8017 

1349*2 

"3.716 

1345*1 

17C13 

I J4474 

■ 9015 

1340*8 

2017 

1337.2 

12706 

1334*5 

5CC8 

1333.8 

ii:i5 

1333.1“ 

"602?r 

1327.2 

7C18 

1318.4 

120C5 

1317.7 

5CC7 

1312*3 

13C12 

1377.9 

4C13 

130T.' 1 ” 

- aoir 

13G5.7 

110C9 

1304.3 

12'^C4 

1303*7 

9014 

1299*9 

1C17 

1290.4 

"$0C6 

119176* 

12CS3 

1292* 7 

6019 

1285.3 

12702 

1284*7 

3015 

1285*9 

120C1 

1279.9 

5005 

1278*2 

“11778" 

1277*9 

7C17 

1274.6 

!??i; 

1273*1 

2016 

1265*8 

5004 

1265.7 

8015 

1262*7 

~ 4J12 - 

1261*4 

9013 

1260.1 

50C3 

1255*9 

112w7 

1254*5 

5072 

1246.9 

"T'JOT ■ 

1244*7 

sOzC 

124319' " 

6 Cl 8 

1242.3 

lOOlJ 

124C.2 

11006 

1232*9 

7C16 

123C.8 

1716 

1227.T:: 

— 5512" 

1221*6 

8C14 

122C.3 

4011 

1219*3 

3014 

1213*7 

11CC5 

1214.6 

10CC9 

120914- - 

- 50X9 

” 1203*9 

6017 

1199.9 

HOC 4 

1199*4 

2C15 

1194*9 

11003 

1187.4 

7015 

llsT* c 

9011 

XI 84* 6 

^cio ■ 

118 1.0 

1C0C8 

1180.9 

11C02 

1178*8 

8013 

1178.7 

llOCl " 

iiTiir 

- T^tr- 

- 1163.4 

3C13 

1158.8 

6316 

1156.5 

10LC7 

1155*1 

4027 

1154.1 

9713 

1149.T~ 

IC15 

1147*6 

4009 

1146.6 
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7014 

2C14" 

4008 

1143.5 

"11T4V9"- 

1116.2 

8C12 

yci7 

4C19 

1138.2 

1122.2 
1115.6 

10006 

9CC9 

6C15 

1132.1 

1116.4 

1112.8 

'1100.4' 

10005 

III 272 

35H 

TTOl.8 

7C13 

8011 

1099.1 

ico:4 

1C95.6 

4C07 

1089.6 

$008 

1085.7“ 

150J3 

1082.5 

5C16 

108C.5 

4018 

1077. C 

1914 

1073.5 

190C2 

1073.0 

6014 

1068.9 " 

U2or 

1067.2 

4*;06 

1566.9 

8C10 

1061.6 

302C 

1061.4 

7C12 

1058.1 

90Ct"' 

— lJ?77r~ 

2CT3" 

TOSS'. 8 

— soil 

2 

4'.'05 

1047. e 

4517 

1038.U 

5015 

1038.0 

90C6 

1032.6 

'40C4 

1032.4 

3009 

1026.0 

6013 

1025.: 

3C19 

1U22.9 

4C03 

102c. 5 

7011 

1016.8 " 

^.^22 

1012.1 

9005 

101C'.7 

40CI 

10O7.C 

1013 

999.5 

4C16 

998.6 

992.7 

joro 


5CT4 

99570 

8003 

9004 

992.4 

2012 

988.1 

3018 

984.7 

6012 

■98i;4 

™9C03 

977.8 

7C1C 

976.9 

2020 

976.6 

90C2 

967.3 

8007 

462.1 

9001 

96w« S 


958.6 

3009 

953.6 

5013 

951.4 

2:17 

946.6 

7C09 

936.7 

934.5 

65 ir 

936.2 

213T9 

"93KI 


1012 

925.9 

2011 

922.2 

4014 

917.9 

1)2: 

915.2 ' 

3JC8 ' 

913.6 

8CC5 

910.4 

3016 

908.6 

5G12 

907.4 

7CC8 

902.6 

6-010 

89671 

"2013 

895.9 

8CC4 

890.0 

30:7 

878.8 

4013 

876.3 

3C33 

873.7 

869.1 


671.9 

3015 

6TC76 

700T 

son 

863.4 

6C02 

861.9 

2C10 

85 8.7 

2017 

856.2 ' 

60C9 

855.2 

8Cwl 

854.6 

1011 

852.6 

3006 

849.2 

7CC6 

836.6 

4012 

■933.8 

3014 

832.4 

icia 

828.8 

3003 

324.7 

30 IG 

819.6 

2C16 

816.9 

805.0 

60 ’3 3 

816.1 

reus 

8n.6 

3C04‘ 

2009 

798.6 

3013 

793.9 

4011 

790.5 

30C3 

790.C 

7C34 

788.7 

1017 

785.3 

1010 

779.9 

3002 

779.4 

60C7 

779.4 

2015 

7787C 

" 5009 

776.4 

3C01 

773.2 

70C3 

770.2 

7C02 

756.7 

3C12 

6006 

754.7 

745.5 

T:-;r 

748.5“ 

53T0 

" "7462 6 

1016 

743.2 

20C8 

743.1 

2C14 

739.7 

3wC8 

734.4 

65C5 

715.1 

3C11 

714.6 

IOC 9 

706. C 

4C09 

702.3 

2C13 

701. 8 

1015 

7C0.'8 “■ 

5CC7 

694.1 

2C07 

693.5 

6004 

689. C 

3C10 

673.3 

60C3 

4C09 

667.8 

656.1 

2'Jl2 

664.4 

1514 

551i3 

f 0C6 

656.4 

6002 

652.1 

20C6 

651.0 

6001 

642.4 

rcc8 

"63T.4 

3C09 

630.7 

2'' 11 
2i05 

627.3 

616.3" 

50C5 
• 4C3T 

622.0 

614.8 

IU3 

5C04 

617.3 

591.8 
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2010 

590.2 

2004 

589.3 

3CD8 

586.9 

1012 

5^'6;s 

4006 

573.0 

2003 

569.4 

i::7 

568.8 

50)3 

566.9 

2002 

555.8 


n27i 

5C02“ 

5-carr“ 

"■'2C01 

547« 8 

3007 

542.2 

5001 

536.6 

leii 

536.4 

40t5 

533; 9 

‘*2008 

513.8 

10C6 

504.1 

40C4 

498.7 

1010 

497.4 

30C6 

497.4 

2007 

473;r~~ 

“40C3 ■ 

“ 468.8 

IC09 

459.8 

30C5 

453.6 

i:05 

446.6 

4002 

445.7 

2ooic 

— wn 

Z76T9 

“418.2 

20018 

434.9 

20017 

431.9 

4C01 

431.1 

2C06 

429.9 

2?016 

429 a 

235X5 

426.4 

20014 

424#0 

10C3 

423.7 

20013 

421.7 

20012 

419.6 

200 11 

"4IT.'8 

2C51U • 

~ "416.0 

200C9 

414.5 

20C:8 

413.1 

3034 

412.3 

23CC7 

411.9 

ao’JOT" 

TOT? 

20079 

4U#0 

20GC4 

409.3 

20003 

408.7 

20002 

40 6. 3 

2)C01 

406.1 

190 2u 

40 2; 2 

— r:c4 

4<’1.9 

19019 

396.7 

19013 

395.4 

19C17 

392.3 

1007 

389.5 

19016 

339T4 

— i9oir 

386.7 

20C5 

384.3 

19014 

384.3 

19013 

382.V 

190L2 

379.9 

1901T” 

^ r 8»c 

19C1C 

37572 

3003 " 

375« 6 

190C9 

374.7 

190C8 

373.3 

1003 

372.7 

190C7 

“ 372; I 

— “19C*T6 “ 

371. C 

199C5 

37C.2 

190C4 

369.5 

190C3 

363.9 

19C02 

368.5 

190CI 

~368;3 

18070 

- 364. 8 

18C19 

361.3 

18018 

357.9 

i:06 

356.3 

1002 

356.0 

TffClT" 

354. 6 

18016 

35179 

15015" “ 

' "349.1 

nci 

347.5 

18014 

346.6 

3002 

346.0 

13013 

344 ; 3 

— iscrr 

• 342.2 

18C11 

34w.2 

18)10 

338.5 

2004 

337.8 

18QJ9 

336.9 

18008 

335.5 

18007" 

■" 334.3 

18C06 

333.3 

18005 

332.4 

18QC4 

33U7 

18C03 

331.1 

18 . w Z 

3T77 

reool ■■ 

330. 5 

*r7C20~" 

■ 229. T 

3U01 

326.5 

17C19 

326 0 

17C18 

322.6 

IOC 5 

321.6 ”• 

17017 

" 519.4 

ITC16 

316.4 

17)15 

313.6 

17C14 

311.1 

17C13 

306.7 

17012 

' 30Tir 

17011 

304. 6 

17C10 

302.8 

170C9 

301.2 

170Q8 

299.8 

17CC7 

298.6 


29775 

L6w 20 

2S 6. 8 

■ 17CC5 ~ 

2961 6 

17)04 

295.9 

17C03 

295.4 

170C2 

295.) 

17001 

294;7" “ 

""16019 

- 293.0 

2003 

292.8 

16»18 

289.5 

16217 

286.2 

I 0 OI 6 

283.1 

luC4 

280T6 

— T8orr 

28% 3 

16C14 

277.6 

161- 13 

275.2 

16C12 

273.0 

16811 

271.0 

1601? 

269 . i 

— rEcro"” 

25775 

"T3C27 

566. 2 

16''08 

266.1 

16C37 

264.9 

16CC6 

263.6 

160C5 

Z62iV 

"15019" 

262.3 

16CC4 

262.2 

160C3 

261.7 

1602 

261.3 

16CCI 

261.*' 

15C18 

258.6 

1501T 

255.2 

2002 

253.0 
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TN07CEV FREQUENCIES 


15016 

252.C 

15015 

249.1 

15C14 

246.3 

15013 ■ 

243;e 

15012 

241.5 

15C11 

239.5 

14,* 2C 

238.1 

15C17 

237.6 

15C09 

23 6. J 

' 1020 

235.: 

iiCCa 

25475 

14019' 

234.3 

1019 

233.3 

15CC7 

233.3 

15006 

232.2 

1018 

231.5 

15035 

231.3 

i::3 

231.3 

15004 

230.6 

14018 

23C.1 

15003 

23C.3 

1U17 

229.7 

" 15C02 

229.6 

150C1 

229.4 

i:i6 

227.7 

14-17 

226.6 

1015 

225.5 

2jor 

224.C 

1^6 ■ 

'■"■21372 ' 

■ ■ 1C14 

223.1 

1013 

22U.1 

14015 

223.1 

14014 

217.2 

2020 

216.7 

1312 

216.6 

14C13 

214.6 

2019 

213.2 

13C20 

212.6 

14C12 

212.2 

1011 

212. 2 ' 

14011 

210.1 

2018 

209.4 

13019 

208.3 

14C10 

2C8.2 

101) 

206.6 

“1'40C9 

206.5 

sen” ■ 

30573 

" 140C8 

205.0 

13018 

204.2 

14C07 

203.7 

14006 

2C2.6 

14005 

201.7 ■ ~ 

14004 

20:.9 

2016 

20C.8 

14)03 

20C.4 

13017 

200.4 

14C02 

2C0.0 

14001 

199.8 

1C 39 

199.4 

13016 

196.8 

2015 

195.9 

3020 


13C15 

193.5 

■ l3'0l4’ 

1957! 

OTS 

”T9w."3” 

I2C23" 

190*0 

1006 

189.8 

3C19 

189.1 

13013 

187.7 

12319 

185.3 

13C12 ■ 

185.2 

2013 

183.9 

3: 18 

183.7 

13011 

192.9 

12018 

181.0 

13313 

180.9 ’ 


179.1 

1002 

178.1 

3317 

177.9 

13CC8 

177.5 

1CC7 

177.1 

12017 

17 6. 6 

ICT2 

Tr676'“ 

"130C7 

176.2 

12306 

175.C 

13005 

174.1 

13CC4 

173.4 

4320 

173.1 

■ * 12016 

173.0 

13003 

172.8 

13VJ2 

172.4 

13031 

172.2 

3C16 

171.6 

11020 

17C.6 

■ 12015 

169.4 

2011 

16 8* 2 

4U19 

166.9 

12014 

166.1 

11019 

165.6 

"301 5 

16^75 


riT3. 1 

11 vl a 

16C.8 

1006 

160.5 

4018 

16C.4 

12012 

166*4 

2010 

158.5 

12wll 

157.9 

3014 

157.4 

11017 

156.4 

5023 

155.9 

12310 

155.7 

1C02C 

155.1 

~'12C09 ■ 

153.8 

4C‘.7 

133.6 

1200 8 

152.2 

11016 

152.1 

120C7 

150.8 

“ lw'3l9' ~ 

14976 


149.6" " 

-- 32 j2 

149*4 

5019 

149.1 

12C35 

148.6 

US15 

148.2 

12304 

147.9 

2C09 

147.4 

12003 

147.3 

123*2 

146.9 

12001 

146.6 

4)16 

146.5 

U014 

144.5 

10018 

144.4 

9020 

144.3 

6020 

144.C 

5018 

142.2 

11013 

141.2 


~14T7E 

ICC 17 

I3T.4 ' ■ 

■ 1CC5 ■ 

139.3 

4015 

138.9 

11012 

138.1 

3C20 

136*1 

9019 

138.C 

7C20 

138.0 

6019 

137.1 

11311 

135.4 

5017 

13 5.0 

i:3l6 

134.7 

2CC3 

134.5 

■ 110X0 

133.0 

9018 

132.3 
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6319 

131*7 

7019 

131*2 

3011 

131*0 

4314 

130*^“ 

‘ 11039 

130*8 

10015 

130*2 

6318 

130* 1 

1001 

133*U 

11008 

129*0 

' 5016 * ' 

— nr.r" 

iTwer 

-xzns 

*9017 

120*7 

11306 

126*2 

10014 

126*1 

6018 

125*4 

11005 

125.2 

“ * 7018 

124*5 

11C04 

124*4 

11003 

123*8 

11002 

123*4 

11001 

123*2 

6017 

123*0 

'4C13 

122*5 

10013 

122*2 

9316 

121*3 

3313 

123*5 

5015 

120*3 

"2307 

“11976 

rciT 

"17912 " 

X3C12 

118*7 

7317 

117*7 

9015 

116*2 

6016 

115*8 

icon 

115*5 

4012 

113*6 

15C4 

113*6 

8316 

113*1 

13010 

112*7 

5014 

112*1 

9014 

lll.V' 

■ 7C16 

IlUC 

13009 

110*3 

3009 

109*0 

6015 

108*5 

10008 

108*2 

— 80’1’5 

■“ *107;2‘" 


—106*9 

10CC7 

106*4 

10006 

135*0 

7015 

1C4.4 

4011 

104*1 

5013 

134;C 

10C35 

103*8 

2006 

103*2 

1C0C4 

1C3.C 

9C12 

1C2.7 

10003 

102*4 

10002 

101*9 

lOCOl 

101*7 

8014 

101*6 

6014 

101*1 

9011 

98*8 

7014 

97*8 

"■ -3038 — 

96* 6 

ernr 

96* 1 

'* 5C12 

9 5* 6 

9310 

95*4 

4010 

94*2 

6013 

93*7 

9309 

92*4 

-7C13 

91*3 

8012 

91*0 

9003 

89*8 

9CC7 

87*7 

5C11 

87*3 

6012 

86*2 

8CI1 

86*2 

9006 

86*0 

7312 

85*C 

2005 

84*7 

9305 

84*6 

^3C9~ — 

83;8 

9CCV” 

—■ 83^7 

1003 

83*6 

30C7 

83*3 

9003 

83*0 

9002 

82*5 

9001 

82*3 

8010 

81*8 

7011 

79*0 

6011 

78*8 

5010 

78*2 

8CU9 

77*9 

3008 

74*5- 

TCIO 

73*3 

4003 

73*0 

8007 

71*7 

6010 

71*5 

8006 

69*4 

— 53C9' 

~ S972~ 

jtJZS 



- TCC9 

66*0 

83C5 

67*7 

80C4 

66*5 

8>')C3 

65*7 

8302 

65*2 

8CCI 

64*9 

2004 

64*5 

6009 

64*5 

7CC8 

63*3 

4C07 

61*9 

5C‘8 

6C*r 

7crr 

* 59*2 

6C08 

57.9 

7306 

55.9 

2335 

54*6 

7CC5 

53*4 

• “SOOT ~ 

57SC" 

CrT7~-“ 

‘5X#'8 

■ TCC4 

51*6 

43 ‘C 6 

5?*7 

7C:3 

s:*5 

1C32 

5C*5 

7002 

49*9 ' 

^^—7031 

49*6 

6CC6 

46*6 

5006 

43*9 

2003 

43*4 

6CC5 

42*5 

4Cw 5 

4!l*C 

' 3CC4T 

39*9 

6CC4 

39*5 

6003 

37*7 

5005 

36*9 

6002 

36% 7 

— ‘63ior — 

31BT4 

5004 

3113 

4004 

30*2 

5)C3 

27*6 

3U03 

26*3 

5CC2 

25.8 

5GC1 

2 r.i 

2C0Z— - 

-23*1 

4003 

22*4 

1001 

17*7 

4C02 

17*6 

40CI 

16.0 

3002 

14*9 

3071- 

9*3 

2C31 

7*5 
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1901 

130*5 

2001 

226.0 

3001 

328.4 

40C 1 

432.7 ■ ~ 

5::v 

“ 538.C 

6091 

643.6 

70C1 

749.5 

8001 

855*6 

9C91 

961.7 

1(5001 


iKjr 

— rrT4."2 

"IZCCl" 

" “128C.6 

13.VI 

1386.9 

14CC1 

1493.3 

15001 

*599.7 

;600i 

l7C6;i 

iraol 

** 1812*5 

18001 

1919.0 

190C1 

2325*4 

2000 1 

2131*9 

1902 

184.7 

2 JO 2 

261.1 ” 

fCCZ 

353.4 


452.7 

50C2 

553*6 

6C02 

656.7 

7002 

76C.8 

'8002'"" 

— 

9PUT" 

9TC»5- 

~ *10592 

1075.9 

110C2 

1181.5 

12CJ2 

1287.2 

13C52 

1393.0 

i40C2 

1499.0'* 

• ” 15002 

" 16C5.0 

16002 

1711.1 

17002 

1817.2 

18CC2 

1923.4 

19C02 

2029.6 

200C2 

2135.9‘ ” 

rcc3“ 

25 ;. 1 

2903 

31C.8 

3003 

391.6 

4C33 

482.5 

5003 

578.7 



7nifr~ 

■~T797r 

"8003 

A6l«7 

9003 

985.1 

10C03 

1089.0 

11C03 

1193*4 

12*“3 

1298.'2 

13C:3 

1403.2 

“ 14003 

1506.5 

150C3 

1613.9 

16C03 

1719.4 

17003 

1825*0 

190C3 

1930.8 

— ~19C33 

“ 2036.6 

20003 

2142.5 

lw04 

323. C 

20 :4 

369.3 

3CC4 

439.5 

4004 

52271 

5004 

I 

“■ '6CC4 

706.8 

7304 

304.4 

8304 

9C4.3 

9CC4 

1005.1 

i::c4 ' 

IIC772 ■ 

112:4 

“ 121 :.: 

12CC4 

1313.4 

130C4 

1417.3 

14074 

1521.6 

15C04 

1626.1 

16304 ~ 

1730.9 

I7C04~ 

1835.9 

18004 

194*.l 

19 3C4 

2:46.4 

27C H 

2151.8 

i:c5 

391.9 

JOTS 

433*1 

iCC5 

494.3 

4C05 

569.7 

5CC5 

652.6 

6005 

742.1 

7905 

835.6 

9005 

931.9 - 



X?3:.3 

15035 

1139.1 

11)05 

1231. C 

12005 

1332.8 

13CC5 

1435.3 

14)05 

153 8.2 ■ * 

i5o:r' 

1641. a 

16CC5 

1745.7 

173C5 

- 

1849.& 

18CC5 

1954.2 

19005 

2:S8.9 


'2 1ST. 7 

1006 

WCl^ 

■ "2006 ■ 

500.2 

30C6 

S54.C 

4006 

621.6 

5C06 

696.9 

6306 

783,2 ™ 

7506“ 

872.3 

8CC6 

964.9 

9'>06 

1)60.2 

1C036 

U57.4 

119C6 

1256.2 

12006 

1356.1 

— r30C6* ■ 

-- - 1456 , 9 

14C06 

1553.5 

1530 6 

1660.8 

16CC6 

1763.5 

17C36 

1866.7 


T9T072 

19026 

20T4. 0 

2C0C6 

2178.1 

nc7 

538.6 

20C7 

569.3 

30U7 

617.2 

4)C7 

678.5 

“TCCT“ 

750. C 

6C37 

829. C 

7‘"?7 

913.7 

8Cc7 

1002. 5 

9C07 

1094.5 

133C7 

iiaa.r* 

“ ~IICC7 

"1285.3 

12007 

1333.1 

130C7 

1482.1 

140C7 

1382.1 

13CC7 

1682.9 

16^ 

1784. 3~ 

170C7 

raas.T 

“ISOOT 

1983.9 

19007 

2091.8 

20CC7 

2195.0 

I0U8 

612.7 

■ 2001 ’ 

63919 

3CCB " 

65?, a 

4rca 

738.7 

5 3 

a;4.9 

6>:;6 

879.0 

7C08 

959.2 

8UC3 

1044.2 " 

90 C 8 

1132. 3 

X3C08 

1224.3 

'JHIGINAL* PAt? ■ TK' 





POOR QUAU'CY 


A-99 




11308 

140C8 

STRUCTURAL 

1318.C 

1606* 8 

COtl&TANTS C 
120C8 
150C8 

1413*6 

1708*0 

13C08 

160U8 

1510*6 
lie 8*1 

ItWi' 

— twnr 

nzjF 


19008 

‘2112*1 

. . r^a 

.2214^1 

1C39 

687*; 

2089 

711*5 

2009 

7SC.3 

4CC9 

801*5 

5009 

062«8 

60C9 

932*4 

7C09 

1CC8.4 

8009 

1089*3 

9i:9 

1174.7' 

IOC09 

1263*2 

11039 

1354*2 

120C9. 

1447.4 

_ 13C09 

1512*3 __ 

14009 

1638*6 

15C09 

1736.1 

iwjr 

1834*6 

17C09 

1934*0 

I8wi:9 

203A.1 

190C9 

2134*8 

23099 

2236*1 

1010 

761*7 

- - 2C10 

783*8 

3010 

819*2 

4010 

866«3 

5G10 

923*4 


988*6 

7)lv 

106C.6 

■"■ 80 1C 

1138*1 

9010 

1219*9 

lOOl') 

1305.J_ 

llwlO _ 

1393*6 

12C13 

1484*3 

13010' 

im.s 

Knr 

1671*3 

15C13 

1767*0 

16'.U 

1863.9 

17010 

1961*8 

18Ci; 

2063*5 

19013 

2160.C 

23CIO 

2267*1 

1011 

636*5 

2011 

856*6 

3CU 

889*1 

4C11 

932*7 

soil 

935*9 

6011 

1047*3 

7011 

1115*5 

SOU 

U89.4 

9C11 

1267*9 

13011 

1350*2 

lieu 

1435.6 

^ i2oiT" 

1524*0 

■ 13011 

1614*4 

14011 

17)6*6 

mil 

lecc.s 

16011 

1895*6 

17011 

1992.C 

18011 

2069*3 

19011 

2137*5 

2C011 

2286*4 

lCi2 

911*3 

2012 

929*8 

3012 

959*9 

4C12 

130:*4 

Swl2 

1350*2 

6012 

Ilu8*C 

7012 

1172*7 

8012 

1243*2 

■"9012" 

018*1 


~TPi’tm9 “ 

“ “11012 

148C.7 

12012 

1566*3 

13012 

1654*4 

14C12 

1744*5 

15012 

1836*4 

r6Cl2 

1929*9 

17712 

2924*6 

18012 

2120*4 

19C12 

2217*2 

20012 

2314*8 

1013 

936*3 

2013 

1CC3.4 

3713 

1031*3 

4U13 

1069*1 

5013 

1115*9 

6013 

1170*5 

7'0l3 




"r2997r 

9013 

1371*4 

10013 

1447*6 

11013 

1527*9 

12013 

1611*1 

13*13 

1696*6 

a4013 

1784*8 

15C13 

1874*8 

16013 

1966*4 

17C13 

2059*4 

18013 

2153*7 

19013 

2249.C 

23013 

2345*4 

1014 

1061*3 

2 '14 

13 77.2 

3C14 

1103*3 

4C14 

1138*7 

■"50i4' 

ni82.r 


123413 ■* 

7016 

1292*7 

6014 

1356*9 

9014 

1426*3 

10014 

1499*9 

11314 

1577*4 

12C14 

1656*1 

13014 

1741.5 

14014 

1827*4 

15014 

1915*3 

16C14 

2005.') 

17014 

2096*3 

"180 14 

2189*0 

19014 

2282.9 

23wl4 

2377.9 

1015 

1136*4 

2715 

1151.3 

■ 

' U71S7f 



12^9*0” 

5015 

1253.5 

6015 

1299.4 

7C15 

1355*0 

8015 

1416.4 

9 ns 

1483*0 

" i:ci5 

1554* : 

11C15 

1628.8 

12015 

1707.1 

13015 

1788*3 

14015 

1872.0 

15015 

1957*9 

16015 

2045*6 

17015 

2135.3 

18015 

2226*4 

19C15 

2318*8 

20015 

2412.3 
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1(516 

6^316 

STRUCTUR6I. 

1211*5 

1279.8 

CQN5TANTS C 
2016 
5016 

1229.5 

1319.1 

3C16 

6C16 

1248.4 

1365.6 

fyi6 

T4T(S7F 

5CT5 

n?77Jr 


1541.3 

10016 

1609.7 

11C16 

1682.1 

12C16 

1758.C 

13)16 

1836.9' 

14016 ■ 

1918.5 

15C16 

2002.4 

16016 

2C88.4 

17C16 

2176.2 

18016 

2265.6 

19016 

2396.5 

"20Cl6 

2448.6 

1017 

1286.6 

2:i7 

1299.8 

3C17 

1321.5 

4C17 

1351.2 

5)17 

W87T 

6tSl7 

^143277 

“7017 * 

1483.3 

8017 

1539.6 

9C17 

1601.) 

10*17 

1667.0 

11017 

1737.C 

■ 12017 

1810.6 

13017 

1887.3 

14017 

1966.6 

15C17 

2048.8 

16C17 

2132.9 

17017 

2218.9 

18017 

2306.7 

19C17 

2396.0 

2); 17 

2486.6 

1018 

1361.8 

2C18 

1374.3 

3«l8 

i39irrr 


1425. «y 

" " " 3018 

1456.4 

6,'>13 

1500.6 

7C18 

1549.0 

8C18 

1603.0 

9018 

1662.1 

■ licia 

1723.7 

11S18 

1793.4 

12)18 

1864.8 

13018 

1939.3 

14018 

2016.8 

15018 

2096.8 

■ 16C18 

2179.1 

17C18 

2263.4 

18018 

2349.5 

19018 

2437.2 

2S:i6 

2526.4 

1019 

im.T 

2*5X9“ 

IW75T 

'3019 

1466.3 

4019 

1495.1 

5019 

1528.9 

6019 

1569.2 

7)19 

1615.5 

0C19 

1667.3 

9019 

1724.2 

10019 

1785.6 

14.019 

1851.2 

12C19 

192C.4 

13019 

1992.9 

“ T4019 

2C68.3 

15019 

2146.4 

16019 

2226.8 

17019 

23C9.4 

18019 

2393.8 

r90T9“ 


25019 " 

256777" 

- IC20 

1512.3 

2)20 

1523.5 

3020 

1542.0 

4020 

1567.5 

5020 

1599.6 

-6X20 

1638.3 

702? 

1682.7 

8020 

1732.6 

9020 

1787.4 

10C20 

1846.7 

11)20 

i9io;2 

12C20 

1977.3 

13020 

2047.8 

14020 

2121.3 

;so2c 

2197.5 

16020 

2276.1 

' 17 ^ 27 ' 

235579' 

rsirzo” 

743977" 

- ~X9(J23 ■■ 

2524.3 

20020 

2610.5 

1200 

247.9 

40C 

489.7 



STRUCTURAtJCaWSTANTS C2 ANO INPICIIS 

NBtees cdiSTWs — weins — constants — nrcim ctKSTANrs 


lOCl 

247*9 

2001 

489*7 

3CC1 

40C1 

976.4 

" “isjei 

"122C.0 

6wCl 

7001 

1707.4 

8001 

1951.2 

9001 

lOOOl 

2438.'} 

iT75I 

26£2« 5 

1 2C 

133!1 

317C.2 

14C01 

3414.0 

ISCCl 

16001 

3901.6 ~ 



4145.4 

18C01 

19UC1 

4633.1 

20001 

4876.9 

1002 

20v2 

495.8 

■**’ 3002 

736.9 

4C02 

5102 

1222.4 

6.?32 

1465.7 

7002 

80C2 

iTsr.i 


™*2196.3 * 

l')C02 

ii::2 

2633.7 

12C32 

2927.4 

13302 

14C02 

3414.8 

15.)02 

3658.6 

160G2 

17002 

4146.1 

18C02 

4389.9 

190C2 

2:)02 

4877.5 

- IOC 3 

278.2 

2003 

3)03 

743.) 

4003 

984.5 

5C33 




TlffOj 


8003 

9JC3 

2198.6 

led 

2442.0 

11C33 

120C3 

2929*1 

^ 13303 

3172.7 

14C03 

15003 

3660*0 

16033 

39C3.6 

17C03 

18)03 

4391* 1 

" 19)'? 3 

4634.8 

23C03 

lOC4 

302*2 

2004 

519.3 

3C04 

4014 



""T23Z22""”” 

6C04 

7)C4 

1716*1 

8C24 

1958.8 

9C34 

100C4 

2444*9 

11004 

2688.1 

12CC4 

13004 

3174.9 

14CC4 

341 8. 3 

15004 

160C4 

39v)5*4 

17034 

4149.0 

18CC4 

190C4 

4^36* 3 

23004 

4879.9 

1C35 

" 

5^6* 3 



TE4.8 

4005 

5005 

1239*4 

6005 

1479.9 

7c;s 

8^05 

1063*4 

9C05 

2205.8 

10005 

110^5 

2691*4 

12005 

2934.5 

13005 

14005 

342UC 

15)05 

366<».3 

16CC5 

i7wrs 

4151*2 

1BC05 

4394. 7 

19C05 

20*)T?15 

488U8 

1CC6 

362; r 

- - 2C06 

300 6 

779.0 

4CC6 

1011.4 

5006 

6^‘6 

1487.3 

7C36 

1727.7 

8CC6 

9)06 

2210*8 

10006 

2453* J 

11006 

12006 

2938*2 

13036 

3131*1 

14C06 

15)C6 

3667*3 

IfiOC 6 

391 :• 5 

17C06 


160C6 
UC7 
^ : 7 
7:07 
ino07 
l3yC7 
16 '07 
19007 
2 3C8 
500 a 
800 a 


r»< 

396.3 

1^24. I 

1735.2 

2458.3 

3185.2 

191371 

4643.4 

604.4 

1270.4 

1983.1 


2007 
5C:7 
8CC7 
IUC7 
140\.7 
TTZIT 
200c 7 
3008 
6308 
90C8 


579.1 

1258.5 

1973.5 

2700.3 

3427.9 

b.9" 

4886.7 
814. f' 
15C5.9 

2223.4 


3007 

6C07 

9007 

12007 

15007 

18C07 

1C08 

4cC8 

7CC8 

10C08 


732.9 

1463.7 

2195.0 

2926.3 

3657.8 

4389.2 

259.7 

979.4 

1709.2 
244C.0 

3171.1 

3902.4 

4633.7 

505.7 

1226.5 

1955.3 

2685.5 

3416.3 

4147.3 

4878.5 

753.0 

1473.9 

2201.8 

2931.4 

3661.9 

4392.6 
33C.S 

10CG.5 

1721.4 

2448.5 

3177.7 
39C7.7 
4638*2 

556.3 

1248.2 

1969.0 

2695.5 

3424.2 
4133*8 
4634*0 

795*4 
1496*0 
2216*6 
2942*6 
367... 8 
4400*1 
432*3 
118*6 
1743*8 
2464*3 
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STRUCTURAL CONSTANTS C 


I10C8 

lAOdB 

2705.8 

3432.3 

12008 

15008 

2947.7 

3674.9 

13C0B 

16C08 

3189.9 

3917.6 

“TOJS 

■"liTAwn 

TBwTS 

— 44C17S 

19C9B 

4640.6 

2C0C8 

4689.7 

1C09 

469.8 

2009 

631.7 

3J09 

834.5 — 

40C9 • 

1954.8 

5C09 

1283.6 

6?09 

1517.1 

7CU9 

1753.4 

8CC9 

1991.6 

9009 

2231.C 

1CC09 

2471.2 

11C09 

2712.1 

12JU9 

2953.4 

13CC9 

3195.2 

14009 

3437.2 

’ is :c9 

TdT^fTS 

T5tr9 

— 39221*7 

'“■I7C99 " 

4164.6 

18009 

4407.3 

19C09 

465C.2 

23C09 

4893.2 

1010 

508.5 ■■ 

2010 

66l«0 

3010 

850.9 

AO 10 

1072.6 

SCI? 

1298.3 

6C1^ 

1529.5 

7oi: 

1764.2 “* ' 

8010 

2001.1 

9C1C 

2239.4 

100 10 

2478.8 

liOlO 

2719.0 

12010 

2959.8 

rs-jij; — 

- T2XITI 

ROTT 

“T442V7 

• 15C12 

3684.6 

16010 

3926.8 

17C10 

4169.1 

laciv 

4411.6 

19010 

4654.3 

2C010 

4897.1 

1011 

548.1 

2011 

691.9 

3011 

680.9 

4011 

1J91.9 

soil 

1314.3 ■ 

" 6011 

1543.1 

7011 

1776.0 

8011 

- - - 

2311.5 

9011 

2248.7 

lOCll 

2467.3 


■ 2T2177 

rrm — 


“■* 13C11 

3207.6 

uni 

3448. 8 

15011 

3690.3 

16011 

3932.1 

noil 

4l74.r^^^^ — 

" iBcn 

4416.4 

19CII 

4658.8 

20011 

4901.3 

1012 

588.4 

2012 

724.3 

O'"' 12 

906.5 

“ 'AOiZ 

1112.7 

5C12 

1331.6 

6012 

1557.9 

7012 

1788.9 

8012 

2022.8 

yoi*2 

225H;9 

I33T2 

2496; 4 

— itcir 

• 2735.1 

12J12 

2974.6 

13C12 

3214.8 

14712 

3455.4 

15012 

3696;5 

—16012 

3937.9 

17C12 

4179.6 

18U12 

4421.6 

19012 

4663c 7 

20012 

4906.0 

i:i3 

629.1 ■ 

' — 2?I3 

757.8 

3313 

933.6 

A0I3 

1134.8 

5013 

^35C.i 

6C13 

1573.8 

. 70r3“ 

1832. 7 

8313 

203 5. 1 

9073 

2269.9 

10013 

2506.4 

11013 

2744.2 

12313 

2983.0 

13013 

3221.5 

14013 

3462.6 

15C13 

3703.2 

16013 

3944.2 

17013 

4185.6 

18313 

4427.2 

19013 

4669.3 “ 

20C13 

4911.1 

1C14 

670.6 

2C1A 

792.5 

3014 

962.0 

4C14 

1158.2 


136979 

6014 

1 593. 8 

* T014 

1817.6 

8014 

2046.3 

9C14 

2281.7 

UC14 

2517.1 

11014 

2754.0 

~ 12014 

2992.0 

13C14 

323C.8 

14014 

347C.4 

15014 

3710.5 

16014 

3951.0 

17014 

4192.C 

■ IBCI4 

4433.2 

19C14 

4674.8 

2C014 

4916.5 

1015 

712.4 

2015 

828.1 

"3JI5 

wr.1 

60 16 

— rr8Z.*9 — 

■ 5015 

139C.S 

6015 

1608.8 

7015 

1833.4 

3015 

2062.3 

9015 

2294.3 

~ 10015 

2528.5 

11015 

2764.4 

12015 

3001.6 

13015 

3239.7 

14015 

3478.7 

15015 

3Tia.‘3 " 

... 

3958.3 

17C15 

4198.9 

130 15 

4439.3 

19C15 

468C.9 

2UC15 

^922.4 
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STRUCTURAL 

CONSTANTS C 




1016 

754*4 

2016 

864*6 

3016 

1022.2 

6C16 

1208*7 

SC16 

1412*8 

6016 

1627.9 

tol6 

I 

SCI? 

"^77*2 ‘ — 

9C16~ 

■ 2307*7 

10016 

2540*7 

11016 

2775*6 

12C16 

3C1U9 

13016 

3249*3 

14C16 

3487*5 

15016 

3726*5 

16016 

3966*1 

17016 

4206*2 

18C16 

4446*7 

19016 

4687*5 

20016 

4928*7 

1017 

796*8 

2017 

901*8 

3C17 

1053*8 

4017 

1235*6 

5017 

1435*9 


*T648*0 

7017 “ 

1867*8 

8017 

2093*C 

9C17 

2321*9 

10017 

2553*6 

11017 

2787*4 

12017 

3022* 7 

13017 

3259*3 

14017 

3496* 9 

15017 

3735*3 

16017 

3974*4 

17017 

4214*C 

" 18017 

4454* 1 

19017 

4694*5 

20017 

4935*3 

1018 

639*4 

2C18 

939*7 

"3*' 18 

■ ■nf58«;T 

4 ^ 

■*T263;'5 

5 Cl 8 

1460*0 

6)18 

1669*C 

7C18 

1886*4 

8C18 

2109*6 

9 ‘18 

2336*9 

1CC&8 

2567.2 

11C18 

2799*9 

12018 

3034*2 

13C18 

3270*0 

14C18 

3506*9 

15018 

3744*7 

16018 

3983*2 

17C18 

4222*3 

18)18 

4461*9 

19C18 

4702*0 

20CI8 

4942*4 

1019 

W2TT 

jRTBr 

9-71*1 ■ 

3C19 

1119*8 

4019 

1292*3 

5019 

1485*0 

6C19 

1690*9 

7019 

1905*8 

" “8019 " 

2127*0 

9019 

2352*6 

10019 

2581*5 

11019 

2813*0 

12019 

3046*4 

: 3019 

3231*3 

14C19 

3517.4 

15019 

3754*5 

16‘19 

3992*4 

17019 

4231.0 

18C19 

4470.1 

19019 

— 47«rCT 

2WT9 

“^949;'3 " ■ 

1020 

925*2 

2020 

101 7*C 

3020 

1153.9 

402 0 

1322*0 

5v2:- 

1510.9 

6720 

1713.7 

772'' 

1926*1 

8*>2C 

2145*1 

9020 

2369.0 

10020 

2596.5 

11020 

2826*7 

12020 

3C59.1 

13020 

3293*1 

14020 

3528*4 

15020 

3764.8 

16023 

40C2*l 

’:7020 

4W7T 

rsosflr — 

~44Ta.l“' 

19020 

4718*0 

20020 

4957*7 

1200 

49. C 

400 

98*1 


STRUCTURAL CONSTANTS C3 AND INDICIES 


TiClCSS CCK5TINT5 INDICES CONSTANTS — TNOrCEr CCASTANTS 


IKl 

49.C 

20C1 

96.1 

3:ci 

147.1 

4?C1 

196.1 

5C01 

245.1 

6C01 

294.2 

7301 

343.2 

8291 

392.2 

9001 

441.2 


— 49375 — 

~ncoT — 

“‘5yr.3 ■ 

• 12CC1 

568.3 

130C1 

637.3 

14001 

686.4 

15C01 

735.4 

16001 

784.4 

17C01 

833*4 

13001 

882.5 

loeci 

931.5 

2CC01 

980.5 

1C02 

98.1 

20C2 

196.1 

3002 

294.2 

4C02 

392*2 

5002 

490.3 

6CC2 

588.3 

7C02 

686«4 

■ eJC2‘ 

■ 704.4 


182.5 

IK 02 

98.:. 5 

11002 

1070.6 

120C2 

1176*6 

13S02 

1274.7 

140C2 

1372.7 

15CC2 

1470.6 

16C02 

1568*8 

173C2 

1666.9 

10CO2 

1764.9 

19C02 

1663.3 

2C'>02 

1961.1 

IC03 

147.1 

29C3 

294.2 

20C3 

441.2 

4C03 

588.3 

5C03 

735.4 

■■ '60C3 "" 

"00^71 



■TC29.6 

8C:3 

1176.6 

9t03 

1323.7 

10003 

147C.8 

11003 

1617.9 

12003 

1764.9 

13003 

1912.0 

14003 

2U59.1 

150C3 

2206.2 

16003 

2353.3 

17C93 

250C.3 

180C3 

2647.4 

19C33 

2794.5 

20003 

2941.6 

1004 

196.1 

22C4 

392.2 

3004 

588*3 

"*4004 ■ 

797^74 - 

"F3C4 

“Tac.T 

6904 

1176.6 

7)04 

1372.7 

e:o4 

1568.8 

90C4 

1764,9 

100C4 

1961.1 

UCC4 

2157.2 

12C94 

2353.3 

130C4 

2549.4 

14C04 

2745.5 

15004 

2941.6 

16'C4 

3137.7 

17C04 

3333.8 

18004 

3529,9 

190C4 

3726. C 

20004 

3922*1 

1CC5 

245,1 

— 2ccr ~ 

49073 

— Sg'gry — 

— 775.' 4" 

4C05 

96C.5 

5''C 5 

1225.7 

6CJ5 

147). 8 

70C5 

1715.9 

8C05 

1961*1 

9005 

2206.2 

13C05 

2451.3 

HOC 5 

2696.4 

120C5 

2941*6 

13C05 

3186.7 

14?C5 

3431.6 

15005 

3677.: 

16?05 

3922.1 

17X5 

4167.2 

18C05 

4412.4 

190C5 

4657.5 

2C005" 

490171 

TOSS 

— 29'4.2'” 

2C0o 

588.3 

3006 

602.5 

406 

1176.6 

5C06 

147C.8 

6006 

1764.9 - 

7C06 

2059.1 

8CC6 

2353.3 

90C6 

2647.4 

10006 

2941.6 

110C6 

3235.7 

1200 6 

3529.9 ■ 

13076 

3824.1 

14CC6 

4118.2 

1 5006 

4412.4 

16CC6 

4706.5 

170C6 

500C.7 

18006 

■"■5T94;"! 


-558% 0 

• 2C0C6 

5883.2 

1007 

343*2 

2007 

686.4 

3C07 

1029.6 

40C7 

1372.7 

52C7 

1715.5 

6C07 

2059.1 

7007 

2402.3 

6007 

2745.5 

9007 

3C68.7 

HOC 7 

343U0 ■ 

nC3T 

3775.0 

12CC7 

4118.2 

13:77 

4461.4 

140C7 

48C4.6 

15037 

5147.8 

■ 'V60C7~“ 

— 549T7C 

"17227 

"5554in' ■ 

18007 

6177.3 

HOC 7 

6520.5 

2CCC7 

6663.7 

I CCS 

392.2 

2778 

704.4 ~ 

- 3090 

1IT6. 6 

4008 

1568.8 

5008 

1961.1 

6CJ8 

2353.3 

7C08 

2745,5 

8008 

3137.7 - ' 

9008 

3529.9 

10008 

3922,1 


A- 105 


STRUCTURAL..CQNSTAWTJ5 X _ 
inca 4314.3 i2t)oa 

14008 5491.C 15CC8 

47C6;5 

5883.2 

13CC8 

16CC8 

5098*7 

6275.4 

17008 

666T# 6 

llOCfl 

79S4* b 

nooa " 

7452.0 

2C0P8 

7844.2 

1009 

441.2 

20C9 

882*5 

30C9 


4009 

1764.9 

5009 

2206.2 

6C^'9 

2647.4 

7CC9 

3688. 7 

8009 

3529*9 

“9009 

39n. £ 

i6o09 

~ ”4412.4 

11009 

4853*6 

123C9 

5294.8 

130C9 

5736.1 

14CC9 

6177.3 


66i6. 6 

Te^;j9~ 


"17C99 

7501.0 

180C9 

7942.3 

190C9 

6383. 5 

200C9 

8824.7 

1010 

490.3 

2010 " 

"" 983.5 

3C10 

1470.8 

4u: 

1961*1 

5010 

2451.3 

6610 

2941.6 

TOIO 

34U.I 

mo ’ 

- 3922.1 

9013 

4412*4 

13310 

4902.6 

11010 

5392.9 

12C10 

5883.2 

i3:ir 

— 

14CIC ^ 

mT.T " 

■ i-^cio 

7354#i) 

16010 

7844.2 

17C10 

8334. 5 

IbClC 

6824.7 

19010 

9315.0 ~ ‘ 

" 26016 

98CS.3 

1011 

539.3 

2ni 

1!78.6 

3011 

1617.9 

4011 

2157.2 

soil 

2696.4 ” 

■ “6611 

3235.7 

7CU 

3775.0 

8011 

4314*3 

9C11 

4853.6 

ItiOU 

5392.9 

rr:ii 

5932.2 

r27Ti ■ 

irnrrr 

I3"li 

■ 7C1C.8 

14011 

7550.1 

15011 

8C89.3 

16C11 

8626.6 

17011 

9167.9 “ 

— ' 18611" * 

— 97C7.2 

19CU 

1 0246. 5 

20311 

10785.8 

1012 

588*3 

2012 

1176.6 

2012 

1764.9 - 

- — -4612 

“ 2253.3 

5C12 

2941.6 

6012 

3529.9 

7012 

4118.2 

3012 

4706.5 

~9?T2 — 

5294;i 

Iw3r2"‘ 

ftmr 

11312 " 

■6471*5 

12012 

7059.8 

13C12 

7648.1 

14012 

8236.4 

15012 

8824.7" 

"”16012 

9413.1 

17C12 

1C001.4 

1SC12 

10589.7 

19612 

lll78.f 

2CU2 

11766.3 

1013 

637.2 

■ "2013 

127A.7 

3C13 

1912.0 

4013 

2549.4 

5C13 

3186. 7 

6013 

3824.1 

■“"”■■'""7310 

4461.4 

srors 

‘^5? 8« 7 

9CI3 ' 

5736. 1 

10013 

6373.4 

11C13 

7C1C.8 

12C13 

7646*1 

13313 

8285.5 

- “14013 - 

8922.8 

15C13 

956C.I 

UC13 

10197.5 

17913 

1C834.8 

16013 

11472.2 

19:i3 

12109.5 

"" 20 Cl 3 

12746.8 

1014 

686.4 

2014 

1372.7 

3014 

2059.1 

4014 

2745.5 

TOir" 

■T43*ni 

mT4 


TC14 

48C4.6 

s:i4 

5491. C 

9C14 

6177.3 

13014 

6863.7 

11014 

7550.1 " 

“ 12014 

8236.4 

13C14 

8922.8 

14014 

9609.2 

15614 

10295.5 

16314 

13981.9 

17114 

11668.3 

~ 16014 

12354.6 

19014 

13041*0 

2''314 

13727.4 

1C15 

72 5.4 

2015 

1470.8 

Tfis™* 

■ 

4515- 

2941. 6T ' 

"■ 5015 

3677.0 

6''1S 

4412.4 

7615 

5147.8 

3015 

5883.2 

9315 

6618.6 

" 100 IF 

7354.0 

11015 

8089.3 

12015 

8824.7 

13915 

9560.1 

14C15 

1C295.5 

isns 

1103O.9 

16C15 

11766.3 

17015 

12501.7 

18: 15 

13237.1 

19015 

13972.5 

20015 

147C7.9 


A>t06 


ST«UCTU«At CONSTAHTS C 

1016 7«4*4 2C16 

016 3137.7 SC16 

1568.8 

3922.1 

1016 

6C16 

2353.3 

4706.5 

"T016 

5491.C 

8C16 

jyr»74 

«T6~’ 

— 7059.8 

10016 

7844.2 

11016 

8628.6 

12016 

9413.1 

13716 

10197.5 

14016 

icm.9 

I5CI6 

11766.3 

16016 

12550.7 

17C16 

13335.2 

18016 

14119.6 

19016 

14904.5 “ ■ 

2C016 

15688.4 

1C17 

833.4 

2017 

1666.9 

3017 

25C0.3 

4C17 

3333.8 

5^5 fT“ 

^lS77i 

5517 



7CI7 

■ 5834.1 

8017 

6667.6 

9017 

/5C1.0 

10C17 

8334.5 

11317 

9U779 

T20I7 

ieeci.4 

13017 

10834.8 

14017 

11668.3 

15017 

12501.7 

16017 

13335.2 

17517 

14168; 

” " 18017 

15CC2.1 

19017 

15835.5 

20017 

16669^0 

1018 

882.5 

2018 

1764.9 

" 30 f 8 


OTf— 

yyysT 

"*■ 5C18 

4412.4 

6 518 

5294.8 

7C18 

6177.3 

3C18 

7059.8 

9018 

7942.2 

10018 

8824.7 

11018 

9707.2 

12013 

10589.7 

13018 

11472.2 

14C18 

12354.6 

15513 

13237.1 

- 16518 

14119.6 

17C18 

15002.1 

18018 

15884.5 

19018 

16767.0 

20C18 

17649.5 

” 10l9‘~ 

9TI75 

ygrro 

— my.“T 

■ " 3019 

2794.5 

4319 

3726.0 

5019 

4657.5 

6C19 

5569.) 

7019 

6y20-;r* 

“8C19 “ 

■ “ 7452.0 

9019 

8383.5 

10019 

9315.0 

11C19 

10246.5 

12019 

11178.0 

13019" 

12109;T5 

I40T9 

" 13041.0 

15019 

13972.5 

16019 

_ 19904.0 

17C19 

15835.5 

16019 

16767.0 

'i9orr~ 

I 7698 . 5 

2C019~” 


rc20“ ■ 

960.5 

2020 

1961.1 

2C20 

2941.6 

4020 

3922.1 

5020 

4902.6 

-6C20 " 

5883.2 

7020 

6863.7 

8020 

7844. 2 

9C20 

8824.7 

10C20 

9605.3 

11020 

10788; e 

T202C ■ 

11766.3 

13020 

12746.8 

14020 

13727.4 

15020 

147C7.9 

I6C20 

15688.4 

“17020 

l£i669.Q 

18C20 

1784975 

19020 

18630.9 

2C02C 

19610.5 

1200 

0.0 

400 

0.0 


►vet m AN^LlftCATtON • -.79670 J1 DBS JSQB 

MfOMP li/fNt »*iAL 


RAOIUSIPT) 

- “*-■ 

e.) 

“ 7 . odd ’ 

1*100 


LNTH COOROfPTI 
H.90 
10.90 

is; 03 

20*C0 


•••VCL 4V« AMPUFICATJONj* C.B2310 Cl DBS FOR 
VCL Av; ANP W/IMT6RNAL PRESSURE EFFECT • -2.85 

RADIUS! FT) UITH COOROIFT) 

9.1 ■ is. do 

..... 7* 0 lO.OC 

7.:oc 


7. 113 


ls7d?r 

3C.ee 


•••VOL AVB AMPLIFICATION • -.37190 32 DBS FOR 
VCL AVE AMP W/INTERNIL’>RE$SU!E EFFECT • -37.31 
RAOIUSIFT) LNTH COOROIFT) 


c.o 

7.700 

7.71.3 


TS^J- 

20.00 

15.00 

3C.ee 


. ♦••VOL AVE AMPLIFICATION • -.12970 02 OBS FOR 
VCL AV € AM P“li7 llvT'^filL" Ffe ESSuR E ETFlCfi ’- l'4;T7r “ 

RAOIUSIFT) LNTH COOROIFT) 

1.0 15.08 

e.) 30.00 

7.170 I5.ee 

7.000 3C.0C 


•••VOL AVE AMPLIFICATION ■ -.216 AO C2 OBS FOR 
VCL AVS AMP M/INTERNAL' PRESSURE EFFECT ■ -22.33 
RAOIUSIFT) LNTH COOROIFT) 

0.7 " I5.es 

0.0 20.00 

■ "f^o"os 

.... . . 

•••VOL AVE amplification • -.28620 OC OBS FOR 
VCL AVE AMP W/ INTERNAL PRESSURE EFFECT • -6.18 

RAOIUSIFT) LNTH COOROIFT) 

*■' '0T7 IT^IBO 

1.0 30.70 

7.170 15.33 

. .20.00 

♦••VOL AVE amplification ■ -.33790 01 OBS FOR 
VCL "AV S' Afl[p~ w / FNf ERNUT'PR ES SuA E E FFEC T ~« " -7.TT ' 
RAOIUSIFT) LNTH COOROIFT) 

0.7 15.00 

0.0 30.70 

7.703 ■ ■" " 15.C0 

7. TOO 2C._70 

•••VOL AVE AMPLIFICATION « -.23170 01 OBS FOR 
VCL AVE AMP W/INTERNAL PRESSURE EFFECT » -7.26 

RAOIUSIFT i LNTH COOROIFT) 

' ■■ A- 108 


,1C.0 HERTZ BANO 

PNT AMPIIOBS) 
-.80710 ei 
-.78550 71 
-.80750 Cl 

^.78610 71 

16.0 HERTZ BANO 

FNT AMPLIOBS) 
-.37700 01 
C.11C7D C2 
-.38120 n 
0.11070 02 

27.3 HERTZ 8AN0 

FNT AMPLIOBS) 
'”-.7:090 C3 
-.70000 03 
-.35880 92 
-.3 7C70 C2 

_25.0 HERTZ BAND 

FNT AMPLIOBS) 
-.17460 92 
-.11770 02 
-.14380 02 

-fllCSO 02 

31.5 HERTZ BANO 

PNT AMPLIOBS) 
-.21940 32 
-.31720 03 
■ -.21C20 72 
-.31650 73 

4C.0 HERTZ BAND 

PNT AMPLIOBS) 
-.34990 01 
-.36840 01 
-.19890 01 
0.69680 Cl 

5S.7 HERTZ BANO 

PNT AMPLIOBS) 
-.16730 02 
-.43910 Cl 
-.10520 01 
-.36540 Cl 

63.0 hertz band 

FNT AMPLIOBS) 



M 

7.030 

15.00 

30.00 

15.90 

-.15510 32 
-.24310 92 
0.26040 Cl 


' now — 

ic.or 

*^.13CB0 92 

•••VOL 

AVf AMPLiMCATIdN > -.AaOOO 01 06$ 60R 

•0.0 HERTZ BAND 

VOL AV5 

AMR M/ INTERNAL 

pressure effect ■ -8.43 



RADIUS! FT 1 ' 

‘ l^th cooroifti 

PNT APPL(OBS) 


3.0 

15.00 

-.62040 01 


■ “0.^ 

"inoo" 

-.19130 01 


7.003 

15.00 

-.63860 OC 


1.300 

'* 30.C3 

0.25260 91 

•••VCL 

AVE amplification • 9.32310 01 DBS FOR 

IQO.3 HERTZ BAND 

VCL AV<E 

AMP W/ INTERNAL 

PRESSURE EFFECT ■ -4. SR 



RAOIUfiFTT — 

DiTFrcaoRornr • 

• PN7 APPLfOBS) 


3.3 

15.00 

-.44850 01 


3.0 

20. 3C 

-.73320 01 


7.390 

15.00 

0. 201 10 Cl 


7.303 

2C.CC 

3.19760 C2 

_ 

Avg • APPLTPrrAT roN" • JiSKio-cmBmjR 

125.9 HERTZ BAND 

VCL AV6 

AMP W/ INTERNAL 

PRESSURE EFFECT ■ -3.49 



RAOlUStm 

LNTm coord (FT) 

PNT AMPL(OBS) 


0.3 

15.90 

-.13590 02 


:.3 

~ -30.00 

-.13060 C2 


7.333 

1S.2C 

9.11320 02 


■ T.TOO 

JK-OT • 

" 3.13570 32 

•••VCL 

AVE AMPLIFICATION ■3.67780 31 DBS FOR 

163.3 HERTZ BAND 

VCL AVS 

AMP W/ internal 

PRESSURE EFFECT ■ -3.28 



RADIUS (FTI 

~ * LNTH COORD IFT) 

PNT AMPL(DBS) 


2.0 

15.0C 

-.73260 Cl 


*)• 

"TKCr * 

-.73010 Cl 


7.33C 

15.00 

9.12230 02 


7.330 

" " '‘30.30 

3.79560 Cl 

•••VOL 

AVS AMPLIFICATION ■ '^.11510 32 DBS FOR 

200.3 HERTZ BAND 

VCL AV>- 

AMP M/ INTERNAL 

PRESS JRE EFFECT > -2.35 



"~RAOIUJTFri 

CNTH CUUROIF I) 

PNT 'APPL(DBS) 


■3.3 

15.23 

-.35220 CJ, 


C.O 

"30.00 

-.42670 Cl 


7.339 

15.00 

2.15920 C2 


7.303 

■ 39.00 

0.7724C Cl 

~ “ •**v(3l' 

A ^ T IMPCIFICATION ■ -.32BCD 31 OB STTJR" 

"25-T.-3 HERTZ BAND 

VCL AV': 

AMP H/ INTERNAL 

PRESSURE EFFECT • -7.81 



RAO IUSIPT 

tMTH COORD (FT) 

PNT AMPL(DBS) 


:•) 

IS.OC 

0.5222D Cl 


n "• “ 

30. DC 

-.69730 00 


7.302 

1S.C3 

-.60610 01 


T.Oco 



-VB958D 91 



A- 109 



